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TYPE IN OTHELLO AND HUNCHMAN 


MACHINE CODE ROUTINES MADE EASY 


Dormere Software Now Presents eeeonegeeenenne ATMOS and ORIC-1 


Backgammon § 8 


(Reviewed by 2K 


in this issue) Pormere Software Presem™ 7 ve ss 4 G 0 0 D GAM ES 


A superb version of the classic game Beep ; , 
of backgammon for your 48k Oric. mon , : a é | from TOUCHSTO NE 
features:— 4 ee 
@ 3 modes of play A 4 Rf eae A 
@ Machine code routines ae T - : yin - 
Machine code routi { » in VIDEO-STYLE CASES 
@ Hi-Res Graphics ; 9 a ene is 
@ Coloured board Excellent °/ i.’ \ = sess S| Available by 


value at 


@ Sound effects £7.95 . va mail-order 
Don’t wait a MICRO-SECOND!! 


re Software Presents 


tener invaders 1 Orical Invaders Send for your choice TODAY ... 


A super-fast version of the ever % GRIDBOMB— exciting new arcade 
popular space invaders game. B game £5.95 


features:— } BLOWTORCH | BLASTER —an ice an 


% F ® game of skill and action 
@ Hi-Res Graphics OTHE PITS—an adventure game with 
@ Full sound effects R graphics ....... £5.00 


KR ACTION 6—Tron, Headbang, Bomber, 
Shor otrere ® Starshoot, Amaze, Chase £5.00 


@ Written in machine code B CONTRACT BRIDGE — ideal or sharpening 
@ Fast/Slow bombs etc. K your card sense £5.01 


@ Bonus Bases R Also available 
: ® GRAPHICS — includes ace character gener- 
@ 16k or 48k Oric ® ator, 3-D demo £5.00 


and if you haven't had enough yet. Dealer's and Distributor’s enquiries : oae Ses respene Hexpav, Sars, 


Try the ultimate in mind bending welcomed. 


ames for all the family, 16/48k Ch : igs 
eques and P.O.s made payable 
rical Games Pack 1. to:— Dormere Software Limited, g TOUCHSTONE, 61 Highfield 


Stretch your intelligence with ' 
Symon, Brain strain, OXO and pe, greens Hause, Sateen St. 5. Head, Sanihy, Hees 


Battleships for only £4.95. Tel: Macclesfield 619535. 


Linkword. A unique way tolearn 
a language. 


The highly acclaimed Linkword Language System 
is anew concept designed to take the drudgery out 
of learning foreign words and phrases with similar 
sounding English words and expressions. 

For example the Italian for ‘cat’ is ‘gatto’. You will 
then be asked to imagine a ‘cat eating a large gateau’. 
At a later stage you will be asked what the Italian is for 
‘cat’ and you will recall the image of the cat and the gateau. 

“You then sit back in your chair with pleasure and surprise as 
you realise the system does work!”. Your Computer, April 1984. 

It is very likely that in 10 hours you will have a vocabulary of about 350 words 
and a basic grammar. The courses are ideal for holiday makers, business executives, 
children or anybody who is looking for a constructive and enjoyable pastime. Available 
at £12.95 each in French, German, Spanish and Italian. 
Each language is supplied with a program cassette, 

a manual and all are compatible with Oric 1 and 
Atmos 48K computers. 
Our range of software products is available 
from your local Oric stockist or contact us 
direct. pati Teversham (02205) 2261. 
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On behalf of everybody involved with 
the Oric Owner Magazine, I would 
like to convey our sincerest apologies 
for the delay in the appearance of this 
issue. Due to this delay, we have 
called it the Oct/Nov issue instead of 
Aug/Sep but this will not change your 
subscriptions at all. 

The problems were due to the 
sudden departure of Mr Cranswick, 
the Editor. At the time of his 
departure, this issue was only partially 
completed and the balance of the 
work fell upon us to complete. Some 
of you may have been told that the 
Oric Owner was to go monthly after 
this issue and that it would be 
available through the Newsagents. 
However, with fewer people working 
on the magazine, we have now 
decided to abandon this plan for the 
time being and we will be continuing 
with a bi-monthly magazine, available 
by subscription. 

You may already be aware that we 
have started up an official Oric Club. 
This is aimed to give the Oric Owner 
the kind of support that a magazine 
alone can't offer. We therefore have 
decided to incorporate the Oric Club 
into this magazine, so that you will all 
benefit from it. Those of you that 


subscribe to Oric Owner and have 
joined the Oric Club separately, will 
of course be refunded. You will all be 
given a membership card, names of 
other Oric enthusiasts in your area, 
discounts on software hardware, 
insurance, clothing and many other 
useful items or services. Current 
subscribers and future subscribers to 
Oric Owner will automatically 
become members of the Oric Club. 

For those of you whose minds go 
blank when the words BASIC or 
Machine Code are mentioned, we 
have details of an Oric school that 
could solve all your problems. It's not 
only for beginners though, there are 3 
courses to choose from designed to 
suit almost every Oric owner. 

The Absolute Beginners course is 
aimed at newcomers to Oric 
computing. It sets out to introduce 
students to computing and the BASIC 
language. By the end of the course, 
students should be able to write 
simple programs. They will also be 
given the chance to try out various 
peripherals and software packages. 

Inside BASIC is a middle level 
course, for those wanting to improve 
their BASIC skills. It has more theory 
tackling page 2 and ROM routines. 

Assembly language is a course for 
would-be Machine Code 
programmers. It will teach a modular 
approach, and how to incorporate 
Machine Code into BASIC. 

Each course will be limited to 12 
students but will be repeated at 
regular intervals. The schools are held 
in the picturesque Norfolk town of 
Heacham. It you are interested, 
contact us for further details. 

Well, with all these plans coming 
into action for issue 10 I've got plenty 
to do —so enjoy this issue and look out 
for the next one, it will be full of offers 
and information you can't afford to 
miss! 


Carolyn Groeneveld. 


OFFICIAL 


ORIC CLUB 


DRICALL 


THE INTERNATIONAL RIE MAGAZINE 


WELCOME vee 


A nationwide network of Oric 
users, a monthly club 
magazine, special offers 
galore — all are promised to 
members of the newly 
launched Oric Club, What's 
more, the club has the 
blessing of Oric Products 
International. 

The aim of the club is to put 
Oric users in touch with one 
another. Each member will 
be invited to fill in his or her 
interests on the application 
form, and asked whether they 
want to be put in touch with 
other local members. It is 
hoped that regional meetings 
will be organized, and area 
groups formed. Any member 
will be able to get publicity 
for activities through the 
monthly club newsletter, 
Onicall. 

Onicall will also contain 
details of special offers 
available only to club 
members. In the first issue of 
the magazine, there is 
software priced from 99p, 
discounted books and colour 
monitors from just over £100. 
The club has also negotiated 
a discount computer 
equipment policy. 

The club plans to take out 
pages on the Oric data base, 
offering exciting possibilities 
to members with a modem. 
An application form, and 
further details, are on page 
55. 


PERFECT LOADING 


Durell Software have come up 
with a cassette loading aid 
that they claim will enable 
virtually any cassette 
recorder to be set up 
correctly for any Onc 
computer. 

The system was invented 
by Ron Jeffs, author of Harrier 
Attack. Robert White, 
Managing Director of Durell 
Software, outlined what is 
involved. 

Enter this program: 

10 HIRES 

20 FOR N=#A000 TO #BF3F 
30 POKE N, 42 

40 NEXT N 

Now RUN this program and 
save the screen memory 
block: CSAVE “PERFECT 
LOAD", A#A000, E#¥BF3F 

Now, to check that the 
controls of a cassette 
recorder are set correctly, 
CLOAD “PERFECT LOAD". 
The screen should fill with the 
pattern of lines. If the cassette 
volume or tone is set 
incorrectly, corrupting the 
loading, the screen pattern 
will be irregular. Coloured 
blocks may appear, areas of 
blank space and so on. Adjust 
the recorder until a clear 
pattern emerges. You then 
have settings that should give 
trouble free loading. 

If you can't duplicate the 
pattern, you know that the 


cassette recorder is not 
suitable for the job. 

Durell will have this loader 
at the start of all their future 
Onc games, and are keen to 
see other software houses 
adopting the system. If every 
software package had this 
loader, users could set up 
their equipment to the 
optimum settings, and 
cassette loading problems 
would be drastically reduced. 

Jungle Trouble, the first 
Durell program to have this 
system, is a lighthearted 
arcade/adventure game set in 
a jungle. The player has to 
complete various tasks, such 
as chopping down a tree, 
while stopping monkeys from 
stealing the axe. It is written 
by Ron Jeffs and has four 
different screens. 

Durell's major program for 
the year is to be released at 
the Farnborough airshow 
Called Combat Lynx, it has 
been developed in 
conjunction with the 
Westmoreland helicopter 
company. It is a flight 
simulation package in which 
the player has to battle 
enemy tanks. Simulated 3D 
graphics add to the fun, and 
there is a terrain memory 
map, so you can see all sides 
of the terrain. Availability is 
expected at the end of August. 


AOSH 


Several leading Oric software 
houses have set up a joint 
body, called the Association 
of Oric Software Houses. It is 
designed to further 
intercommunication between 
software houses about the 
Oric computers, programming 
techniques and so forth. 

A statemen from AOSH 
says “It was unanimously 
agreed that Oric had found a 
winning product in the Atmos, 
and that public, dealer and 
distributor awareness of both 
the machine and the software 
should be improved.” 

AOSH can be contacted 
through member companies. 


80 COLUMN 
PRINTER 
COMING 


Oric have shown a new 80 
column printer, due for 
release shortly. It will sell for 
around £250. 

The printing system is dot 
matrix, and the standard is 
claimed to be letter quality. It 
works at a very much faster 
rate than the MCP-40 
printer/plotter, but has little in 
the way of graphic capability. 
Made in Japan, in Oric 
colours, it has a Japanese 
typeface built in. The 
interface is Centronics. 


GRAPHICS 
COURSE 


The University of Birmingham 
is planning a ten week course 
on Oric graphics and 
programming skills. The 
course is to be based on the 
Graphic Kernel System, an 
international system for 
two-dimensional graphic 
displays. Screen windows, 
obect movements and 
drawing are just some of the 
topics that will be covered. 
Due to start in January, 
1985, the course will cost 
around £10. If interested, 
contact Mrs S. Laflin Baker, 
Aston Webb Building, 
Lecture Room 7, University of 
Birmingham. The telephone 
number is 021 472 1301. 


JOYSTICK 
INTERFACE 


Downsway Electronics have 
released a new joystick 
interface for the Oric-1 and 
Atmos computers. It connects 
to the input/output port and 
takes standard nine pin 
joysticks. It costs around £30. 

Programming is simple. 
Press the key appropriate to a 
direction of movement, hold it 
down and move the joystick 
in the appropriate direction. 
This data is stored in the 
interface's memory. A 
program is then loaded and 
the joystick will operate 
instead of keys. Downsway 
claim the unit is compatible 
with all Oric software. Up to 
eight directions, and fire can 
be programmed 

For further details, contact 
Downsway on (03727) 27222 
Their address is Depot Road, 
Epsom, Surrey KT17 4RS. 
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ORIC IN 
CONCERT 


CWS 


Time travel, an American 
musician and a brace of Orics 
came together for an eleven 
night series of concerts 1n 
Paris recently. The Orics 
provided sound and graphics. 
Jim Cuomo is the man 
behind the event. An 
established musician, he has 
been experimenting with 
Orics since October. With 
three machines, a drummer 
and a narrator, his stage 
spectacle recreates a future 
crime in which a musician 
using computers disappears. 
During the show, the 
computers apparently start to 
malfunction, and the 
musicians get more and more 
worried. Eventually the 
saxophonist does disappear 


Programmed in Forth and 
BASIC, the Orics display 
HIRES images on three 
television screens, and are 
used to generate the taped 
backing tracks. Live 
saxophone, percussion and 
vocals complete the 
spectacle. 

Jim Cuomo is evidently 
keen to experiment further 
with computerised concerts. 
He plans to implement more 
advanced programs in which 
the computers simultaneously 
produce sound and images 
The French media have given 
him plenty of coverage too, 
with more to come. He 1s also 
hoping to arrange some 
concerts in Britain, ifa 
suitable venue can be found. 


SECTOR 7 SOUNDS 


Sector 7 Software have 
announced the winners of 
their Composer competition. 
The entries were so good that 
they had to award three first 
prizes 
The competition was open 
to anyone who purchased the 
Composer software program. 
Music composed with the 
program was submitted to 
Sector 7, with a £100 prize 
offered to the best 
effort. The three jol 
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{ winners 


were Mic Houghton, for Sabre 
Dance, Trevor Shaw, for 
Popcorn and J. Collins for 
Only You. The company sent 
Oric Owner a tape of the 
winners and near-winneIrs. 
The quality of the entries was 
indeed excellent, and ably 
demonstrated the sound 
potential of the Oric 
Composer is available from 
Sector 7 Software, P.O. Box 8, 
Newton Abbot, Devon 
TOQ12 1UE, and costs £6.50. 


SUPERIOR 
SOFTWARE 


Atmos owners now have five 
more programs to choose 
from, under the Superior 
Software name. Four are 
Atmos-compatible versions of 
existing Oric-1 programs, the 
fifth is brand new. 

Krokatile Waltz is the new 
game. You are a jungle native 
and your task is to protect two 
species of krokatiles. You 
must safeguard their food, 
keep hunters at bay and keep 
numbers down. Written 
entirely in Machine Code and 
for 48K machines only, 
Krokatile Waltz costs £7.95 

There are two utility 
programs for the Atmos, 
costing £9.95 each. Toolkit 
includes a disassembler, a 
monitor and several other 
commands. Assembler is a 
two pass Machine Code 
assembler that makes use of 
the new commands on the 
Atmos, and will work with the 
Microdrives attached. 

Geography is an 
educational program for 48K 
machines. It teaches 
countries, capitals and 
populations, at a variety of 
levels, and costs £7.95. The 
final program is Lunar 
Mission, also £7.95. 

The distributor of Superior 
Software is Darkstar, 32 
Sovereign Street, Leeds 
LS1 4B). The telephone 
number is (0532) 450879. 


TANSOFT 
TITLES 


Tansoft have four games titles 
scheduled for release very 
soon. One is an adventure 
game. 
Harridges is a game along 
the Manic Miner lines. Set in 
a multi-storey department 
store, you are the shop 
manager, having to collect 
money from the tills. Trying to 
frustrate you are fridges, 
Hoovers, lawn mowers and so 
on, all going beserk. It will 
sell for £7.95. 
The Kilburn Encounter 1s a 
text-only adventure game, 
satirising other adventure 
games. It is Pythonesque in 
nature, featuring old ladies, 
dead bishops and drunken 
Australians. The price will be 
£5,00. 
Insect Insanity is to be the 
follow up to Rat Splat, while 
Rig Runner is a new arcade 
that has you rescuing oilmen 
from a rig by helicopter. 
Tansoft are also working on 
a Pascal compiler. 


QUICKSILVA’S 
TWO 


Quicksilva, well known for 
their Spectrum and BBC 
games have released two 
existing titles for Oric-| and 
Atmos machines. They are 
Mined Out and Velnor’s Lair 

Mined Out Is a strategy 
game. You have to manouver 
your man through a mine 
field, guided only by audible 
warnings of nearby mines. An 
electric fence surrounds the 
mine field, and movement Is 
by cursor keys. There are 
nine levels to the game, and 
at higher levels, you 
encounter walking mines, 

o rescue damsels and 

eventually have to rescue B 
the Worm. 

Velnor's Lair is a text-only 
adventure game. It has 20 
locations and the Spectrum 
version has been very we 
received. Both programs are 
priced at £6.95. 


ORIC MODEM 
LAUNCHED 


wo? anne 


LINE OCD ON 
ee Se 


Oric have at last launched a 
modem for their computers. It 
had been promised since the 
Oric-1 was first launched 

The V23 Modem 1s British 
Telecom approved and sells 
for £100. That price includes 
supporting software, cables 
and a modem adapter unit 
The modem works with all 
Oric computers. 

Oric are also taking out a 
substantial number of pages 
on the Prestel system, 
planning to use it as a data 
base for subscribers 

The modem connects to the 
input/output port and software 
is loaded from cassette. The 
modem is plugged into the 
new style plug type 
telephone socket. You may 
need to get old sockets 
changed. The telephone 
plugs into the modem and the 
software 1s loaded up. You 
then call up Prestel and you 
have a full function Prestel 
terminal. 

You can access the Prestel 
pages in a number of ways 
Pages can be found by the 
use of menus, or by page 


HIRE AN ORIC 


Mirco Hire are a Solihull 
based retailer, hiring our 
popular computers and 
peripherals. They have stocks 
of Atmos computers and 
Microdisc units. To rent the 
disc drive costs £19.95 per 
month, with discounts for long 


PRESTEL Tx 


number. With a 48K machine, 
between 40 and 99 pages 
from Prestel can be held in 
memory. Any of these pages 
can be saved to tape, and 
loaded back from tape at a 
later date. 
Most Prestel pages are 
available for just the cost of a 
ocal phone bill. There is a 
quarterly charge of £13 for 
connection to the service. 
Some pages may cost extra 

Modem users will also be 
able to access the Micronet 
network, for clubs and 
computer related information 
They will be able to use the 
electronic mail service, order 
goods directly and make use 
of all the services Prestel 
offers 

The modem is in Atmos 
colours and measures 23.5 X 
16.5 x 5.5cm. The modem 
adapter measures 12 X 6.5 Xx 
5cm. It operates at 1200 baud 
in the half duplex mode and 
1200/75 baud in the full 
duplex mode. No software for 
the downloading of programs 
is available at the moment but 
is being written. 


term rental. You can also rent 
packages, such as an Atmos 
and cassette recorder for £15 
per month. Further details can 
be obtained from Microhire 
Ltd, P.O. Box 61, Solihull, 

B91 3LT. The telephone 
number is 021 705 9330. 


MIDLAND 
COMPUTER 
FAIR 


Onc owners attending the 
Midland Computer Fair in 
early May had to look hard 
for news. Onc Products 
International had a large 
stand, and were displaying 
their latest equipment. Tansoft 
were the major software 
house present. 

Ikon Computer Products 
were showing a super-fast 
tape loading system, the 
Ultradrive. They told Onc 
Owner that plans for an Oric 
compatible version are well 
advanced. 

The Hyperdrive uses 
mini-cassettes and can load 
data from any part of a tape in 
an average of less than 20sec 
Data 1s transferred at 12000 
baud, amd each tape holds 
70K per side. The operating 
system occupies 16K, but lies 
sideways to the ROM. A final 
product is expected soon, at a 
price of £80. 

Doublemode Ltd were 
another company of interest. 
They buy ex-rental TV sets 
and turn them into colour 
monitors that sell for a very 
reasonable price. Each 


monitor also has a switch that _ 


will turn into a green screen 
monitor 

A 20” monitor costs £99 plus 
VAT. 22” and 26” monitors 
cost £119 and £139 (ex. VAT) 
respectively. A lead for from 
monitor to Oric costs £2.60 
plus VAT 

Saga Systems Ltd, the 
keyboard people, told Oric 
Owner to watch out for some 
Onc-related developments. 
They are working ona 
joystick and three software 
packages. 

On the games front, 
Defence Force was one of the 
five games in the Software 
Pentathalon. Daniel Childs of 
Leeds was the overall top 
scorer on the game, witha 
total of 409,020 points. For that 
marathon effort, he won 
himself a brand new Oric 
Atmos. 


Un 


ORIC- 
BRANDED 


SOFTWARE 


Onic Products International 
and Tansoft Ltd. are jointly 
planning to market a range of 


selected software titles to be 
made available before 
Christmas 


At the time of writing, the 
numbers of titles for inclusion 
in this range was not known 
but it is envisaged that about 
one third of the titles will be 
business/utility and 
educational packages 


RIC 


SOFTWARE 


Until retail distribution of 
the range can be established 
all products will be made 
available on a mail order 
basis. 

Each selected title will be 
packaged in a distinctive Oric 
Software package, and credit 
will be given to the company 
producing it. 

A panel of experts will 
decide which title to include 
and would make 
arrangements concerning the 
terms of trade with the 
companies concerned. 
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The Oric Atmos Handbook 
Peter Lupton & Frazer 
Robinson 

Century Communications 
250pp £5.95 


This is an updated version of 
The Oric Handbook, aimed at 
the Atmos owner. 

Its predecessor was a 
competent volume that nicely 
filled in the gaps of the Oric-1 
manual. This new version has 
full details of the new ROM. 

It assumes no previous 
knowledge of computing and 
takes you from the initial 
setting up of the machine. It 
then takes you through the 
rudiments of BASIC 
programming. The style is 
readable and there are 
frequent summaries of the 
points made. 

The last chapter deals with 
the new commands of the 
Atmos and includes a useful 
address file program. After 
that, there is a whole series of 
appendices, detailing 
commands, error messages, 
screen locations and giving 
useful advice on editing or 
speeding up programs 

Several areas are dealt with 
exceptionally well. All three 
display modes are tackled in 
depth, and there is a useful 
introduction to Boolean logic. 
Machine Code is not touched 
on. 

Given the Atmos manual is 
quite good, this book has a 
stiff task to perform. Still, at 
£5.95, it is good value 
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Dynamic Games for your 
Oric 

Clive Gifford 

Interface Publications 
210pp £4.95 


One look at the title tells you 
that this is another book of 
program listing for owners of 
the Oric-1 computer. It 
contains 36 programs of 
varying length and 
sophistication. 

All the games are 
preceded by a short 
introduction, explaining the 
game and outlining any 
programming tricks. There 
are no illustrations, 
presumably in the interests of 
economy. The listings 
themselves are in large type 
and none are daunting in their 
length. 

The games are a mixture of 
old favourites and original 
ideas. Some are traditional, 
some arcade, and some are 


DYNAMIC 
GAMES 


FOR YOUR ORIC 


strategic. 

The most attractive games 
are Moponoly, Houston, We 
Have a Problem... and ROM 
Bug. There are also a number 
of graphics demonstration 
programs too. 

The last pages of the book 
are read chapters. They 
outline possible applications 
for your Oric, give advice on 
improving programs and 
cassette recording. There is 
also a useful index of books 
and a dictionary of terms. 

At £4.95, this is thus a good 
value for money book of 
programs for any budding 
programmer. 


MIKE JAMES, S.M.GEE AND K AY EWBANK 


THE ATMOS 
BOOK OF GAMES 


The Atmos Book of Games 
Mike James, S. M. Gee, Kay 
Ewbank 

Granada Publishing Ltd. 
143pp £5.95 


This is a reprint of the Oric 
Book of Games, with the 
listings modified for the 
Atmos. It has a different 
cover. 

There are 21 games listed 
All are prefaced by a short 
introduction, and a picture of 
the screen so you know what 
sort of game you are about to 
type in. The introduction 
explains the game, how the 
program is structured, 
highlights any tricks of the 
trade and suggests possible 
improvements. 

The programs break no 
new ground in quality or 
originality. They are either 
action or strategy games, plus 
a smattering of word puzzles. 
There is Noughts and 
Crosses, a fruit machine, a 
word search, a horse race. 
little that hasn't been done 
before. 

Still, the idea behind books 
like these is to give simple 
programs that can be learnt 
from and improved on. They 
also save you buying stacks of 
magazines, and may give you 
some ideas for more original 
games. 

This is neither the finest nor 
the best value book of listings 
for the Atmos. Still, it is one of 
the first, and will be widely 
available. Atmos owners will 
find it not a bad buy. 


The Adventurer’s Notebook 
Mike Gerrard 

Gerald Duckworth & Co. 
Ltd. 

126pp £3.95 


This is a practical book for 
the adventure game enthu- 
siast in every sense of the 
word. It is a very useful aid. 

The bulk of the book 
consists of pages you fill in 
during the course of a game 
There are squares to 
represent locations, pages for 
notes of useful vocabulary, the 
results of actions, locations of 
objects — all the sort of things 
you normally write down on 
scraps of paper before you 
lose them. 

There is space for plenty of 
adventures to be recorded, 
and if you are a keen fan, the 
book could well be a diary of 
events. It is ring bound too, 


for greater convenience. 

At the start, there are a few 
chapters to read. 

They explain the nature of 
an adventure game and the 
purpose of the book. There 
then follows an excellent 
chapter with hints and advice 
on playing adventure games. 

A bnief history of the genre 
follows, recapping much 
familiar ground. Then there is 
a guide to some of what's 
available for various 
machines, including the Oric. 
The information is up to date 
There 1s also a page of useful 
addresses. 

All in all then, this is a very 
handy volume, and one that is 
reasonably priced too 


A Guide to Playing the 
Hobbit 

David Elkan 
Melbourne House 

76pp £3.95 


The Hobbit has been one of 
the most successful adventure 
games written for home 
computers. For all those who 
have puzzled over it, this slim 
volume will be a Godsend. 

It is published by the 
publishers of game and 
arranged in three parts. The 
publishers claim that by using 
the clues in the book, one of 
the many solutions to the 
game can be found. 

The first section is a 
general guide to better 
playing. There are tips on 
vocabulary, actions, mapping 
and the main characters. It is 
all useful material. 

The next section offers 
more concrete advice, for 
each of seven major locations. 
The responses you get to 
HELP are given, plus hints 
Some of these are in code that 
must be deciphered 

The third, and longest 
section details each location 
in turn. A screen picture is 
shown, possible exits listed 
and clues given. The book is 
structured so that advice gets 
more and more detailed the 
further you read. 

Certainly our Hobbit game 
was made far easier by this 
book, and if you are really 
stuck, it is a great idea. 

The price is reasonable 
and the advice useful. 


Machine Code For The 
Atmos and Oric-1 
Bruce Smith 

Shiva Publishing Ltd. 
£6.95 


This is the first book we’ve 
seen on Machine Code for 
Orics, so that should help it 
along. The aim is to introduce 
the ideas of Machine Code, in 
a way that the beginner will 
be able to understand. 

To that end, it succeeds 
rather well. The advantages 
of Machine Code, 
hexadecimal numbers, binary 
arithmetic and registers are 
all introduced early on. Then 
it is into addressing modes, 
stacks, loops, jumps, shifts, 
routines — all you need to 
follow Machine Code 

There are plenty of 
practical examples given 


along the way, even if they 
are for very, very, simple 
applications. 


After all the heavy stuff, 
there are half a dozen 
appendices. They take up 
nearly a third of the book, and 
detail all the instruction 
codes, ASCII codes, give a 
memory map and so on 
Unfortunately, much of this is 
repeated from the manual 
and the space might have 
been more profitably devoted 
to more examples. 

Still, the reader will end up 
having used some Machine 
Code, and hopefully with a 
working practical knowledge 
that can be extended with 
experience. 


On The Bouksheff 


GETTING STARTED 
ON THE 


ORIC=1 


Getting Started on the Oric-1 
D. G. J. Cole 

Ellis Horwood 

164pp £5.95 


For all those who struggled 
through the Oric-1 manual, 
here is another book that 
attempts to get the user more 
familiar with the machine. 

It starts right at the 
beginning, with the emphasis 
on learning at the keyboard. 
The book culminates in a 
Blackjack program 

The style is clear and not 
too technical. Machine Code, 
Boolean algebra and so on 
are not dealt with. This is a 
book for first timers. 

Chapters deal with various 
areas of Oric operation. There 
is a section on sound, another 
on graphics, and another on 
mathematical routines. There . 
are also a number of chapters 
dealing with BASIC program 
structure — loops, arrays, 
subroutines and so on. Most 
points are illustrated with 
short programs. These 
include a useful character 
generator and a HIRES 
drawing aid 

Overall, Oric's BASIC is 
covered pretty thoroughly, 
and in a clear manner. 

Advances since the Oric-1 
date this book. There is no 
mention of the Atmos, the 
printer, disc drive or other 
add-ons. Original bugs are 
acknowledged but remedies 
are not suggested. So, though 
reasonable enough it's not a 
great buy. 


are sold out completely, but 
we do have limited numbers 
of issues 7 (April/May '84) and 


8 June/July '84). Back issues 


costs £1.20 each. Make 
cheques or postal orders 
payable to Tansoft Ltd. 


INTERVIEWED 
THE SLOTS ON ORIC 


ORICS 
SOFTWARE - 
SOUND COMMANDS MATS 5 SIMPLE 
MICRODRIVES 0! 


April/May '84- Practical 
Machine Code II, Pinball, 


educational software, 
Append/Renumber, Forth, 
hints, tips and much, much 
more. 


June/July '84 — Dr Paul 
Johnson interviewed, 
Microdrives on test, sound 
explained, Star Cruiser, Slot 
Machine, Puss in Boots, 
Yahtzee, plus quickies, — 
hints and so on. 
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ORIC-1 
SUPER SALE 


Multi-player financial simula- 
tion. Make your first million 
and start a whole new career! 


The classic text and graphics Strength and cunning are 
real time adventure. Save needed in this brain twister. 
facility and multi-role playing. The ultimate adventure to 
Can you master this epic regain the chalice. 
adventure? 


£10 FOR THREE (INC. P & P) 


Send your cheque, postal order or credit card number to 
Argus Press Software 
No. 1 Golden Square 
London W1A 3AB 


10 Oric Owner 


IJK Software 
Oric-1/Atmos 

£7.50 

Once again, aliens are on the 
attack, Your task is to survive 
their onslaught. 

Against a starry 
background, saucer-like alien 
ships approach you at speed, 
growing in size as they 
complete a downward swoop 
They each release a plasma 
bolt at you. You have to 
dodge that and destroy the 
ship, firing when each ship 
reaches the bottom of its 
attack run 

Destroy 20 ships and you 
move up a level. At levels two 
and above, missiles are fired 
from the planet surface too. 
The higher the level, the 
faster the ships, and the more 
that get by you, the more 
missiles are fired from below. 

The controls are simply 
right, left and fire. There is a 
sound off option. You can also 
choose the level you start at 
too. There's a hall of fame at 
the end of each game. 

Getting the hang of Probe 3 


doesn't take long, and the first” 


three levels are quite easy. 
That is an advantage if your 
reflexes are slow, but if you 
are a fan of Invader-type 
games, Probe 3 1s a little bit 
simple. Arcade beginners will 
find it plenty of fun. 


Originality ** 
Sound ** 
Graphics kk 
Addictiveness kkk 
Value kkk 


Tansort ' 44 


Oric Cad 
Tansoft 
Oric-1/Atmos 

£9.99 

CAD stands for Computer 
Aided Design, and this is the 
first package of this type 
we've seen for Oric 
computers. 

The cassette comes with a 
comprehensive user manual. 
Fast and slow recordings are 
provided. You'll need to study 
the manual to make the most 
of this program, though there 
is a demonstration mode to 
whet your appetite. 

The facilities are 
comprehensive. Planes of a 
solid object are drawn one at 
a time. The object can then 
be viewed, at a variable 
distance and with hidden 
lines removed, or as a wire 
frame object. The viewing 
angle can be changed and 
the object shaded 

Three objects can be held 
on the screen at one time. 
Text can be added, screen 
colours changed and objects 
saved to tape 

The object rotation is not 
that fast,.and shading takes a 
long time, but for those 
interested in CAD, this is a 
useful program. 

It comes with 
comprehensive 
documentation, and with a 
few hours practice, you'll be 
quite adept at CAD. 


Facilities KKK 
Instructions kk 
Ease of Use kkk 
Value kk 


Blowtorch Blaster 
Touchstone 
Oric-1/Atmos 

£5.95 

This is one of those games 
that is almost impossible to 
get the hang of. There are 
screen instructions at the 

start, but once the game is 
started, you can't get back to 
them, and the case 
instructions are minimal. 

The idea seems to be to 
land a spaceship on a planet, 
collect energy and return to 
the mother ship. The first part 
is an advanced version of 
Lunar Lander. You have to 
clear a part of the planet's 
surface with bombs and 
retros, then land in a safe 
area. 

The next part involves you 
shooting energy bolts, with 
each hit giving you energy. 
You must then take off and 
get to the mother ship. 

The sound and graphics 
are OK but far from 
exceptional. The controls 
work rather slowly, and as 
you have only three lives, 
getting very far in the game is 
very difficult. 

So, it is not a game we can 
highly recommend. It is too 
difficult at the start and 
doesn't have the quality to 
keep you trying to master it. 

The price is reasonable, 
but that's about all. 


Onginality a ed 
Sound xk 
Graphics kk 
Addictiveness kk 
Value kk 


Them 


Virgin Games 

Oric-1/Atmos 

£5.95 

Wnitten by Andy Green, the 
author of Ultima Zone, this is 
Virgin's second Onc program 
It is a pretty fair effort. 

The game 1s in five 
sections, with fourteen levels 
to each section. There's a Hall 
of Fame, on-screen 
instructions, game pause, 
sound off and you can choose 
any of the five games, or a 
cycle, to play 

The game is packaged ina 
flamboyant style and the 
credits are very fancy. The 
games themselves are OK. 

The first part has you 
avoiding predators in a grid 
and collecting objects. Then 
there's a game where you 
have to align blocks of colour 
flying across the screen. 
There's a monster shootout, of 
the ‘we've got you surrounded 
type’, another shooting 
session from a moving 
conveyor belt and a bone 
matching game. The second 
and fifth games are the least 
appealing. 

Sound and graphics are 
used quite well, and this 
game won't disappoint, as the 
whole is greater than the sum 
of its parts. 


Originality kkk 
Sound kkk 
Graphics ok 
Addictiveness kk 
Value kkk 
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Chess II 

Tansoft 

Oric-1/Atmos 

£9.99 

The original Chess from 
Tansoft was not without its 
faults. This version is very 
much better. 

A novelty feature is the use 
of a synthesised voice to state 
the moves the computer 
makes. It even tells you if a 
move is illegal! The voice can 
be silenced if desired, as it is 
not too easy to understand. 

The game has five levels, 
with the top level taking 
several hours per move. At 
the first level, moves take just 
a few seconds. 

Options include a change 
sides, save or load a game 
position, wipe a section of the 
board and set up pieces. 
Instructions are on a loose 
Insert, 

Compared to the original 
Chess, this version is faster, 
plays a better game and has 
better features. Screen 
graphics are good and if you 
fancy having a go at beating 
your computer, a program 
hike this will set youa 
challenge. Level one is not 
difficult, but at higher levels, 
you'll have a fight on your 
hands. This is a much 
Improved Chess program. 


Originality kk 
Sound tok kk 
Graphics kkk 
Addictiveness kkk 
Value kak 
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SUPERIOR 
SOFTWARE 


World Geography 

Superior Software 
Oric-1/Atmos 

£7.95 

Countries, capitals and 
populations are the subject of 
this educational cassette from 
Superior. Unless you are a 
Mastermind champion, you 
wont get all the answers. 

The tape comes with fast 
and slow recordings 
Instructions are given on 
screen. There are eight levels 
of difficulty to choose from, 
and you can opt to be 
questioned on capitals, 
populations or both. Twenty 
questions are given, anda 
percentage score shown at 
the end. 

The questions appear 
below an excellent HIRES 
map of the world, in blue and 
green. The country in 
question is shown by a 
flashing square. 

Right answers receive a 
beep, wrong answers a buzz 
and the correct answer. 
Populations must be to within 
20 per cent. 

With the eight levels, you 
are bound to have some 
difficulty, and bound to learn 
some geography. It is a 
package with limited scope, 
but what it does, it does very 
well indeed. It's a welcome 
addition to Oric software. 


Facilities kak 
Instructions ad 
Ease of Use kak 
Value kak 


WINDMILL 
SOF TWARE 


Graffix 

Windmill Software 
Oric-1/Atmos 

£7.95 

Design aids for the Oric don't 
come much better than this 
German package. If you want 
to experiment with HIRES 
graphics, try this program. 

The accompanying manual 
details the many commands. 
There's a keyboard overlay 
for the Oric-1 too. 

Commands include the 
usual pixel by pixel drawing, 
circle and box routines. FILL 
routines give the options of 
automatic or manual filling, 
and full or half shading. You 
can add text, create a screen 
window, insert attributes at 
any point on the screen, use a 
border — all you could want. 
Final images can be saved to 
tape, or reloaded from tape. 

An odd feature is that the 
program has English and 
German versions. An 
annoying feature is that the 
command keys aren't easily 
related to their function, and 
the keyboard overlay is 
essential. 

A demonstration picture 
shows the scope of Graffix 
With practice, it is a useful 
design tool. It can be mail 
ordered from the German 
distributor in Gifhorn. 


Facilities De ood 
Instructions kkk 
Ease of Use xk 
Value kk 


IJK Software Ltd present 
FOR THE 48K ORIC-1 
and ORIC ATMOS 


are 


a 


Green Cross Toad 

IJK Software 

Oric-1/Atmos 

£7.50 

Here's Frogger by another 
name, and a good version it is 
too. All the usual features are 
incorporated, and Onric's 
graphics used to good effect 

You have five frogs to 
manoeuvre across a four lane 
highway to a central 
reservation. You then have to 
jump a river, using turtles and 
logs, while avoiding a snake 
and diving turtles. All this is 
done against the clock too. 

The sound level can be 
raised or lowered. Controls 
are simple, and work well 
Screen instructions explain 
the game. 

Mastering Green Cross 
Toad will take some doing. 
The Hall of Fame is not easily 
entered. Still, you'll have a lot 
of fun trying, and really 
exercise your fingers trying to 
master the game. 

While the idea is far from 
onginal, IJK have 
incorporated all the best 
features of the game and 
produced a package that may 
well end up in the software 
collection of Oric owners who 
didn't get enough of Frogger 
when it was a popular arcade 
game. Well done, IJK, this is a 
good program. 


Originality ok 
Sound kak 
Graphics kak 
Addictiveness kok 
Value ok 


Krokatile Waltz 

Superior Software 
Oric-1/Atmos 

£7.95 

You play the part of a native, 
trying to survive amidst 
breeding Krokatiles, water 
snakes and predatory hunters. 
You have a raft and a number 
of spears with which to 
protect yourself. The idea is 
more original than most. 

Controls are simply cursor 
keys and the space bar, 
There is a pause facility, 
variable volume and 
adjustable level. Screen 
instructions are duplicated on 
the inlay card. 

The graphics are chunky 
and colourful. Some of the 
movements are quite 
amusing, and your figure 
responds quickly to 
commands. 

The game takes a little 
familiarisation and then 
becomes good fun. There are 
tactics to be adopted, and 
high scores don't come easily 
The fact that you only have 
one life shortens the game 
considerably, but you'll learn 
to accept that. 

Though graphics could be 
improved, this is a novel, 
amusing game for the Oric 
and worth trying out. It's great 
fun to play. 


Originality kk kk 
Sound kk 
Graphics kkk 
Addictiveness kok kk 
Value kkk 


ORIC-1 


WARRIOR SOFTWARE 
Runelord 
Modular Concept 
Peripherals 
Oric-1/Atmos 
£7.50 
In the original, 
non-computerised adventure 
games, generating a 
character with certain 
attributes and equipping him 
was a major part of the 
playing. Runelord is one of 
the very few adventure 
games that has this feature. 

The program is in two 
parts. The character 
generator module makes up a 
character with varying 
strengths. You name and 
equip the character before 
saving it to tape. Such 
generated characters are 
then used in game modules, 
such as The Pits of Doom, of 
which forms the second part 
of the program. 

The game has good HIRES 
location pictures and good 
descriptions. A text window 
accepts player input. 

The game has a few faults. 
Text scrolling is a little too 
fast, some obvious commands 
are missing and the room 
contents do not decrement as 
objects are taken. Still, this is 
only an introductory module, 
and we'll have to see if later 
modules do better. 


Originality kkk 
Sound * 
Graphics kkk 
Addictiveness xk 
Value kkk 


GAMESPACK 
For THE ORIC asx 


7 Games 
LASER-STATION 
OBSTRUCTION 
MAZATRONIC 
MATHS TEST 
18 LBL OX 
DEMOLITION 
NOUGHTS AND CROSSES 


Gamespack 

Sector 7 Software 
Oric-1/Atmos 

£7.00 

Seven games for seven 
pounds from Sector 7 sounds 
like quite good value for 
money. It is, if you don't 
expect too much. 

Laser Station has you firing 
at photon bolts from a base 
that automatically scans the 
sky. Though there are two 
‘skill’ levels, it is a game that 
will hold interest for two 
minutes. 

Obstruction is a version of 
Light Bikes, a passable 
version at that. 

Mazatronic has you trying 
to find the way out of a maze. 
Demolition is a version of 

Bomber (yawn!), while 
Noughts and Crosses needs 
no introduction (yawn, yawn). 

Millibox is the best game, 
with seven levels along the 
lines of Pacman. It is very 
easy to play though. Finally, 
Maths Test, in which correct 
answers are rewarded by a 
crack at a space invaders 
game. Kids will like that. 

All in all, it is not a package 
that can be highly 
recommended, unless you 
like simple games. A book of 
listings would be better value. 


Oniginality 

Graphics 

Sound 

Addictiveness 

Value * 


+ ot Ot Ot OF 


Nowotnik Puzzle 

Tansoft 

Oric-1/Atmos 

£6.90 

Remember the Rubik 

cube — a fad that has long 
since swept past? This 
program is a screen version 
of that infuriating puzzle. 

The computer starts with a 
square of four coloured 
blocks. It randomly juggles 
them up, and your task is to 
restore the original pattern. It 
is a task that is not easily 
accomplished, even on the 
lowest of the five levels. 

Machine Code keeps the 
block movements quite 
speedy, and they are 
accompanied by a simple 
sound effect. There 1s a quit 
option if you want to give up. 

Rubik cube fans may find 
this puzzle appealing. Most 
won't. There is little 
description of the 
programming on 
the packaging, and the idea is 
old hat now. After one or two 
failed attempts, you'll 
probably give up the puzzle 
as too complicated, and not 
nearly addictive enough. 

A program like this needs 
to be much less expensive, or 
jazzed up to increase the 
addiction rating. As it 1s, it is 
very difficult to recommend it 
to Oric owners. 


Originality tek 
Sound ° * 
Graphics kk 
Addictiveness * 
Value * 
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CDS Micro Systems - 


ORIC VATMOS (2 AGM 


Word Search 

CDS Micro Systems 

Oric- 1/Atmos 

£5.95 

Word Search is an 
educational program in which 
the player/s must make as 
many words out of a given 
word, against the clock. It is 
written with the classroom 
very much in mind. 

Loading takes three 
minutes, There is an opening 
page, music and 
comprehensive on-screen 
instructions. ‘The tape has 
Oric-1 and Atmos recordings, 
one on each side. 

There are 32 words to start 
with, and from 22 to 58 words 
to be made from them. The 
time can be set from one to 
nine minutes. Errors are 
counted, and player names 
are used. 

Though a modest enough 
idea, the program 1s well 
executed and very robust. It 
can be used as a keyboard 
famiharization program too. 
The author, Pete Beckett, has 
done well. 

The only slight criticism is 
that answer words are given 
alphabetically, so it isn’t 
difficult to guess a word 
missing between two found 
words. Still, this is an 
excellent classroom program 
at a good price 


Facilities wk 
Instructions kak 
Ease of Use kkk 
Value kkk 
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1JK Software Lid present. 
FOR THE 48K ORIC-1 
and ORIC ATMOS 


Frigate Commander 
IJK Software 
Oric-1/Atmos 

£6.50 

As commander of an armed 
frigate, you have to hunt and 
destroy three submarines. 
That's the scenario for this 
Trek-style game. 

The screen shows the 
Sonar and Radar displays, 
weapon status and a blank 
seascape. Using the map 
command gives a display of 
an island and your position. 

During the game you have 
to fend off attacks from enemy 
ships, homing missiles, 
aircraft and submarines. You 
have Exocets, depth charges, 
Seacat and Seawolf missiles to 
do this. You also have to avoid 
running aground or going off 
the map area. 

The pace of the game is 
sometimes very slow. The 
seascape display shows 
missiles being fired, bombs 
falling, and aircraft crashing. 
Such displays are all too rare, 
and much better use could be 
made of the display. 

It is not difficult to discover 
good tactics. After that, it is 
unfortunately a matter of luck 
as to how high your score 
gets. If you get all the subs, 
the game ends abruptly. So, a 
nice attempt, but it could have 
been much better with a little 
more thought. 


Originality Kk 
Sound ke 
Graphics kk 
Addictiveness kk 
Value kk 


Assembler 
Superior Software 
Oric-1/Atmos/16K 

£9.95 

Entering Machine Code by 
mnemonics Is far easier than 
using op-codes. This 
assembler is therefore 

very useful to the Machine 
Code programmer. 

It has a copious list of 
commands. It will accept all 
6502 mnemonics, 
hexadecimal, binary or octal 
numbers, and character 
strings. REMarks can be 
added, memory reserved, 
values assigned to labels and 
bytes or words defined. 

Programs are entered as a 
BASIC program would be, 
with sequential line numbers 
Colons separate different 
instructions on the same line. 
You input the start address for 
the assembled routine and 
CALL that address to access 
the routine. Programs entered 
hike this can be saved to tape, 
as a BASIC program. 

Documentation is limited to 
a description of the com- 
mands, and could be better. 

When assembling takes 
place, errors are indicated. 
This assembler is a two pass 
assembler. If you are using 
Machine Code, an assembler 
makes a lot of sense, and this 
SS version 1s well up to 
scratch. 


Facilities tk kk 
Instructions kkk 
Ease of Use kkk 
Value kk 


Grid Bomb 

Touchstone 

Oric-1/Atmos 

£5.95 

This effort from ‘Touchstone 1s 
very much better than 
Blowtorch. It is written in 100 
per cent machine code, has 
variable volume and is 
joystick compatible. 

You have to manoeuvre a 
man around a grid, trying to 
reach a bomb that is counting 
down, while avoiding mines 
and collecting bonus points. It 
is easy to get the hang of the 
game, and there are eigh 
screens. 

The level can be raised by 
shortening the countdown 
time, or adding a stamping 
Bovver Boot. Instructions are 
quite clear. 

The action is fast and 
amusing. T'he graphics aren't 
of the highest possible 
standard, but they are good 
enough for a game of this sort 

Controls are logical — it 
takes suprisingly little playing 
to be able to get a high score. 
Sounds of a Scott Joplin rag 
accompany the action. 

So,while not a standard 
setting game, Grd Bomb is 
entertaining and quite 
addictive. ‘The author has 
done a good job. The idea is 
not totally original, but the 
game 1s player friendly and 
well priced. 


Originality kkk 
Sound kak 
Graphics kk 
Addictiveness kak 
Value kkk 


HUNCH MAN 


Wie 


M. SHILLING 


Avoiding flying boulders and arrows is the aim of 
Hunch man, a game derived from the popular arcade 
game. Mark Shilling is the programmer. 


The scenario 1s simple enough. You have to get your 
man along a rampart, ducking boulders, jumping holes 


23 


G.B. MAP 


How well do you know your geography? This 


program will test it to the limits, as far as the cities of 


Great Britain and Ireland are concerned. The author, 
J. Rafferty, comes from Northern Ireland, hence the 
number of locations on that portion of the map. 


When RUN, a menu is presented. You can choose to 
display Great Britain, Ireland or both. You can also ask 
for questions on Great Britain or Ireland. 

The display consists of a HIRES map of the country, in 
green on a black background. A point marking the 
location of the city flashes, and the name of the city is 
displayed beneath the map. In the question mode, the 
location blinks, and you have to input the name of the 
city. You get twenty questions, for Great Britain, ten for 
Ireland, picked at random. A final score is given at the 
end. 

New towns can be entered easily enough by entering 
new DATA lines. You'll need to enter the name of the 
town and HIRES screen co-ordinates. Wait until the map 
has been drawn and stop the program by CTRL C. Use 
the CURSET X,Y,1 to plot the new location, and enter X 
and Y as the DATA co-ordinates. If you add new towns, 
remember to amend lines 505, 555, 612 and 622. Also, be 
careful not to plot a point on the ‘coast’, or program will 
crash when the map is drawn. 

The program is quite straightforward. Removing line 
524 will get rid of the PING. It will work on any 48K or 
16K Oric computer. If you or your children want to learn 
British and Irish geography, it is well worth entering. 


and avoiding arrows. At the end of the rampart, there is 
a bell to be rung. You have three lives to start with. 

The opening screen gives the controls — cursor left for 
left, cursor down for right and space for jump. Pressing 
the space bar starts the action. 

Each time you get to the bell, a new screen is 
displayed and your score updated. The third screen has 
you using a Swinging rope to cross a chasm. After the 
third screen, you start again at the beginning. 

Clearing a screen scores 100 points. Clearing all three 
gives a bonus of from 0 to 1500 points. The score is 
displayed at the top of the screen, along with lives 
remaining. 

The listing starts with character redefinition to give the 
man, arrow, boulder and other characters. The opening 
page is then programmed, followed by each screen in 
turn. Atmos owners will have to add one to the first 
figure in any PLOT statement. Lines 381 to 690 handle 
movement and consequences. 

The TEXT screen is used throughout, and Hunch man 
ably demonstrates that an amusing game can be written 
without resorting to HIRES or Machine Code. A logical 
approach can simplify even the most daunting tasks. 


J. RAFFERTY 
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STARSHIP RETREAT 


You are a long, long way from home. Your planet has 
been decimated by invading Volgranians, and they’ve 
stolen ten treasures prized by the race of Aldor. Your 
task is to recover those treasures. 


To that end, you've been dispatched to a remote space 
station at the outermost limits of the known galaxy. When 
you docked with the space station, yet more disaster 
struck, as your space ship was damaged beyond repair. 
So, after collecting the treasures, you must also find a 
way of contacting home. 

Now it is over to you and your wits. Starship Retreat is 
the name of the game, and solving all the puzzles posed 
is not that easy. 

All commands are either one or two words. If your 
Onric does not understand a particular command, you will 
be informed. Only the intial letter of direction needs to 
be entered. 

We've listed the vocabulary used in the game. It will 
give some clues to what strategies to adopt. If you get 
stuck, HELP may give a clue. If you give up, QUIT will 
end the game. SCORE displays your current score, 
INVENTORY displays what you are carrying. 

These are some of the treasures to watch out for: gold, 
jewels, Kryptonite, a log book, a warp transporter 
crystal, anew ROM (for the Oric!), silicon chips, spices 
and a statue of Pacman. All the best in your search for 
them! 


Vocabulary 
Directions — NORTH, SOUTH, EAST, WEST, UP, DOWN 


Special Verbs — HELP, INVENTORY, QUIT, SCORE 


Verbs — ATTACK, BUY, CLIMB, CLOAD, COOK, 
CRACK, DROP, EAT, GET, GIVE, GO, GRAB, HIT, 
INSERT, JUMP, KILL, KISS, LEAVE, LOAD, LOOK, 


EURO FLAGS 


In Oric Owner April/May, we published a short 
program that displayed a HIRES Union Jack on the 
screen. Andy Grant then sent us this program, 
displaying twenty European flags, selected from a 
menu. 
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OPEN, PHONE, PRAY, PULL, READ, SEARCH, SMOKE, 
SWEAR, SWIM, TAKE, THROW, TIME, USE, WEAR 


A. GRANT 


The countries given are Austria, Belgium, Bulgaria, 
Denmark, Finland, France, Germany, Greece, Hungary, 
Iceland, Ireland, Luxembourg, Monaco, Netherlands, 
Norway, Poland, Spain, Sweden, Switzerland and United 
Kingdom. The name of the country is displayed below 
each flag, and each flag is plotted very quickly indeed. 
We certainly didn’t know all the flags in this program. 
The Union Jack is not only drawn, but a pretty fair 


4 rendition of the National Anthem is given at the end. 


The structure of the program is simple enough. Each 
response to the menu calls a subroutine that draws the 
flag. More subroutines could easily be added. Attributes 
are used skillfully to give realistic drawings, and there is 
even an orange colour on the Irish flag. If you are new to 
attributes on the HIRES screen, study this program. 


————— 


few 


CHARACTER REDEFINER 


We’ve seen many simple character redefiners. This 
one, from sixteen year old Conrad Chin, is very 
sophisticated indeed. 
When RUN, you first get on-screen instructions. They are 
quite lengthy and comprehensive. To shorten the listing, 
they could be omitted. 

You are then presented with a six option menu. The 
options are: 


1, Direct entry of numbers 

2. Building a character on screen 

3. Saving the standard character set 
4. Saving the alternate character set 
5. Saving both character sets 

6. Building a picture. 


O ends the program, and ECS gets you out of any option 
and back to the menu. 

For the first two options, you are first asked for the 
character to be redefined, by key or ASCII code. You 
can choose standard or alternate characters too. Shift 
must be used for upper case characters. 

Option | then displays the character and asks for eight 
numbers between 0 and 63, one for each row of pixels. 
The new character is shown as it is created. 


C. CHIN 


If you are happy with the character, you can now store 
it. If not, you go to option two. This shows a much 
enlarged character in a grid, with the eight numbers you 
entered on the side. This character can be altered as 
you wish. The cursor is moved by the cursor keys. A 
pixel is set by the space bar, cleared by the DEL key. | 
clears the whole grid, 2 fills the whole grid and 3 goes 
back to the character you started with. S stores the 
generated character. 

The character saving routines are self explanatory. 

Option 6 allows you to combine a number of standard 
or alternate characters into one unit. A rectangle of five 
by six characters can be formed. It starts off filled with 
blank spaces. Position the cursor and use F or B to raise 
or lower the ASCII code of the character at that location. 
Shift F or B alters the ASCII code by five. The ASCII 
code and its character are shown above the grid. 
Pressing the space bar will plot the character at the 
cursor position. C switches off the cursor. L clears the 
square and Q gives a quit. 

With all these facilities, you should be able to generate 
almost any character shape you dream of. This routine is 
very useful for the games designer, and if that's you, take 
the trouble to type it in. It is an excellent program. 


THREE TOWERS 


A. BALDIE 


Here’s a puzzle for you. It is traditional and will tax 
your wits. Blame programmer Baldie if you get 
stuck - the conversion is his work. 


The idea is simple enough. You have a pile of seven 
rings on the leftmost of three towers. You have to transfer 
these rings to the righthand tower. The problem is that 
you cannot place a larger ring on top of a smaller ring. If 
you try to do so, your Oric will zap and the move will not 
be accepted. You can only move one ring at a time too. 

The screen shows the piles of rings. It asks you which 
tower you want to move a ring from, and which you want 
to move the ring to. If you give the same tower number 
to each request, you'll be asked if you are sure that is the 
move you want to make. Pressing a wrong key gives a 
zap and an input error message. The only way out of the 
program is CTRL C or resetting the computer. 

The listing is quite short and easy to follow. The meat 
of the program is from lines 100 to 370. Instructions are 
given from 1000 on. and the HIRES image drawn from 
lines 10 to 200. The array A(3,7) holds the positions of the 
seven rings on the three towers, S and O are variables 
for the Start and Object towers. 

Unfortunately, a solution to the problem was not 
supplied. If anyone works it out, can we have a 
look ~ please! 
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OTHELLO 


N. HEMPSALL 


Othello is a game of strategy, a battle of wits between 
you and the computer. It is an old, old board game, 
adapted for the screen. 


The aim is to end up with more pieces than your 
opponent. You gain pieces by capturing those of the 
opponent. Sandwiching a piece or pieces between two 
of your own captures them, and they change colour. 

The game is played on a board of 64 squares. It starts 
with two of each players’ pieces at the centre. You go 
first, and players take it in turns to place a piece on the 
board. A piece must be placed next to an opponent's 
piece. It this isn't possible, press X to miss a go. 

There are five levels of difficulty. Pieces are placed by 
entering the co-ordinates of the square you want to use. 
Any illegal move will be signalled. A beep prompts your 
move, a buzz signifies that Oric has moved. Scores are 
displayed to the nght of the grid. 

The game continues until all squares are filled. 
Beware, fortunes can change very rapidly, and the 
machine plays a very good game. 

This program is written for the 48K Oric-]. Conversion 
to run on the Atmos is simply a matter of adding one to 
the first figure in any PLOT statement. So, type it in, and 
find out which is better, man or machine. 


RUNEWRITER 


A. IRWIN 


hTtW-EhPt 
H-htX- 4T4 


Long, long ago in Middle-Earth there lived fair Elven 
people. These Elves spoke their own language and 
they wrote with special letters. These letters were 
called ‘runes’. They were tall, many shaped figures 
with each ‘rune’ standing for one or two of our 
English letters. Today, hardly anyone can understand 
these ‘runes’. Only Elves, Wizards, and Dwarfs are 
skilled in their use. These folk are hard to find. 
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Happily, with the aid of modern technology and with 
grateful thanks to J. R. R. Tolkien who has provided data 
for the rediscovery of these ancient characters in his 
books “The Hobbit" and “The Lord of the Rings", 

the bygone skills are lost no more. With the aid of the 
program ‘RUNEWRITER’, runes may now be used by all. 

Most ‘runes’ stand for one letter only, but a few stand 
for two letters. These include ’ for 'TH' and * for 'NG. 

To have the power of runewriting at your fingertips all 
you have to do is type in this program and RUN. When 
asked, the required phrase is entered in English (no 
more than two lines long to fit in with the line length of 
your Oric), and Oric will translate that sentence into 
‘runes’. 

After Oric has converted your phrase into runes it 
will ask you if you want another translation. If so, press 
'y'. Any other key ends the run. 

This program accepts all letters, numbers and other 
characters but commas are recognised by Onric as 
terminating an input sequence and thus cannot be used 
in this version. : 

This program occupies about 12K and was written on 
any 48K Oric. For 16K Oric models, line 10010 will 
require changing to the appropriate addresses of the 
user-defined characters. Good typing and good running. 
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OTHELLO 
Pit your wits against your Oric in this version of a classic 
board game. There are five levels — Page 20 


GB MAP 
Test your knowledge of British and Irish geography with 
this educational program — Page 24 


HUNCH MAN 
This version of an arcade favourite features boulders, 
arrows and chasms — Page 27 


EUROFLAGS 
Your Oric will draw twenty European flags, and play 
God Save the Queen too — Page 30 


STARSHIP RETREAT 
A text-only adventure game in which you have to find 
treasure on an alien space station — Page 37 


RUNEWRITER 
Translate English sentences to the mysterious runes of 
Middle Earth — Page 43 


CHARACTER GENERATOR 
Perhaps the best character designing program we've 
seen — a must for games programmers — Page 45 


THREE TOWERS 
A devilishly difficult puzzle that will have you tearing 
your hair out! — Page 50 


HOW TO SUBMIT PROGRAMS 


We are always delighted to see your programs for 
possible publication in Oric Owner. If the program is 
less than 50 lines long, we will probably consider it a 
Quickie. 

As we are kept busy putting the magazine together, 
we don't have the time to type in long programs. If 
you are sending in a long program then, please send 
it on cassette. To aid correct loading, we would advise 
CSAVEing two listings, one at the slow data transfer 
speed. 

We have our own printers, to give a printout 
suitable for use in the magazine. It is therefore not 
essential that you send a listing for BASIC programs. 
We must have listings for Machine Code programs 
though. 

If you can include any details on special routines in 
your programs, or a brief summary of how they run, it 
would be helpful. 

Finally, unless you include a stamped, self 
addressed envelope, we cannot return any submitted 
programs, due to the number we receive each week. 
Make sure you have a copy of your program at home, 
or enclose a s.a.e. if you want the cassette returned. 
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REMKXXKKK KKK KKK KK KKK KKK KK KKK KK KK KKK 260 IF LE$="1" THEN GOSUB 42852 
REMXXXXKXXKKOTHELL OXXKKKKKKKKKKKKKK 270 IF LE$="2" THEN GOSUB 4A49 
REMKXXXKKXKXKCOPYR I GHT XXKKKKKKKKKKKKXK 288 IF LE$="3" THEN GOSUB 483 
REMXXXXN.B.HEMPSALL 1984XXKXXXKKKXKXX 290 IF LE$="4" THEN GOSUB 4922 
SD REMKXKKKKKKKKKKKKKKKKK KKK KKK KKK KK KK 380 IF LE$="5" THEN GOSUB 4012 
1@ CLS:INK 4:PAPER 7? 5968 GOSUB 16@@@:PLOT 28,2," YOUR TURN" 
2@ PRINT:PRINT;,,; "OTHELLO" 981 GET AS 
38 PRINT:PRINT"THIS IS A GAME OF STRA 002 IF A$="X" THEN 2%9=29+1:GOTO 732 
TEGY AND SKILL." 905 IF A$>"@" THEN IF AS<"I" THEN S@? 
4@ PRINT:PRINT"YOU PLAY BY PLACING YO 5986 GOTO 58a 
UR COUNTER SO" SO? 29=29-1:I1F 29<@ THEN 29=0 
98 PRINT"THAT YOUR OPPONENT’S COUNTER 508 PLOT 31,5,A$ 
S ARE" 518 GET BS 
68 PRINT"? SANDWICHED’ BETWEEN TWO OF 912 IF BS>"@" THEN IF BS$<"3" THEN 515 
YOUR OWN. " 513 GOSUB 16@08@:GOTO 51a 
7@ PRINT:PRINT"THE ’ CAPTURED? COUNTER 915 PLOT 33,5,B$ 
S THEN BECOME" 920 GOSUB 10828 
8@ PRINT"YOURS. CI WILL DO THAT FOR Y 930 IF BCX,Y)<>@ THEN 2=1:GOSUB 2020: 
OU)" GOTO 58a 
9@ PRINT:PRINT "THE FINAL OBJECT OF 68@ PLOT P;,Q,"Ilm" 
THE GAME IS TO" 70@ PLOT P,Q+1,"no" 
10@ PRINT"END UP WITH MORE COUNTERS O 720 BCX, YJ=2:PL=2 
F YOUR* 730 GOSUB 10@@@:IF SS=1 THEN 742 
11@ PRINT"COLOUR THAN YOUR OPPONENTS. 731 IF 11=@ THEN GOSUB 20@@:GOSUB 189 
88:GOTO 5aa 
112 PRINT:PRINT"YOU PLACE YOUR COUNTE 732 PLOT 28,2," 
R BY KEYING THE" 733 IF 29=2 THEN GOSUB 1193@:GOTO 742 
114 PRINT"REFERENCE OF THE SQUARE, LE 734 PLOT 31,5," “sPLOT 83355," ” 
TTER FIRST" 736 PLOT 38,1@,"MY TURN" 
116 PRINT"NUMBER SECOND: E.G. °£3?" 738 11=@ 
118 PRINT:PRINT"IF YOU CAN’T GO, PRES 740 PL=1:GOSUB S@ea@: 
SUK =2 THEN GOSUB 11830:GOTO 742 
128 PRINT:PRINT’YOU ARE WHITE, AND PL 741 IF SS5=@ THEN 75@ 
AY FIRST" 742 WAIT 400 
125 PRINT:PRINT "PRESS ANY KEY 743 CLS 
TO CONTINUE" 744 PRINT:PRINT:PRINT:PRINT:PRINT 5 "D 
1368 GET 2$¢ O YOU WISH TO PLAY AGAIN?" 
14@ CLS 745 GET P$ 
145 GOSUB 3800 746 IF P$="Y" THEN CLEAR:GOTO 147 
14? CLS 74? CLS:END 
15@ PRINT:PRINT,,, "GAME LEVEL" 798 PL=2:A$="" =PLOT 
16@ PRINT:PRINT:PRINT,,"1...LEUEL 1 ¢ 768 GOTO 5a@a 
EASY)" 1008 IF A$="A" THEN 
17@ PRINT:PRINT,,"2...LEVEL 2" 1016 IF A$="B" THEN 
18@ PRINT:PRINT,,"3...LEVEL 3” 1826 IF A$="C" THEN 
19@ PRINT:PRIN. "4,..e.LEVEL 4" 1838 IF A$="D" THEN 
2066 PRINT:PRI ‘S.. LEVEL 5S CHARDI" 1848 IF A$="E" THEN 
21@ PRINT:PRINT:PRINT , "PLEASE SELECT 1058 IF A$="F" THEN 
REQUIRED LEVEL" 1860 IF A$="G" THEN 
226 GET LE$ 1070 IF A$="H" THEN 
230 IF VALCLE$)<1 THEN 220 1888 Y=VAL(B$) 
240 IF VALCLE$)>5 THEN 228 1098 P=Xxk3:Q=CYX3)-1 
243 CLS 1188 RETURN 
245 IF SSZLTWHEN S5=@:GOTO 2598 2000 PLOT 38,10," ILLEGAL" 
247 GOSUB aBBpBe 281@ PLOT 31,12, "MOVE" 
258 GOSUB 19080 2015 GOSUB 162a@ 
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2020 WAIT 200 

203@ PLOT 30,19," 

2048 PLOT 31,12," " 

2045 IF 2=1 THEN 2=@:RETURN 
205@ PLOT P,Q," " 

2060 PLOT P.Q+1." " 

2@7@ PLOT P+1,Q+1,." * 


208@ PLOT Pt+1,Q," " 
2090 BCX, YI=@ 

2108 RETURN 

308@ PRINT =:=PRINT:PRINT 
T SURE HOW TO PLAY, " 
3810 PRINT :PRINT 
EVEL FROM THE NEXT" 
3020 PRINT =PRINT 
*x? WHEN IT’S YOUR" 
3838 PRINT :PRINT 
HOW I DO IT gg" 
3048 PRINT :PRINT:PRINT:PRINT 
ANY KEY TO CONTINUE" 

3850 GET AS 

30708 RETURN 

4000 REM LEVEL SET UP 

481Q@ H2=24 :U2=24:B(8,8)=1:GOSUB 15808 
482@ H2=3:U2=3:BC(1,1)=1:GOSUB 15800 
4030 H2=24 :U2=3:B(8,1)=1:GOSUB 15080 
404@ H2=3:U2=24:B(1,8)=1:GOSUB 15890 
4050 H2=12:U2=12:BC4,4)=1:GOSUB 15000 
406@ H2=15:U2=12:B(5,4)=2:GOSUB 14880 
407@ H2=12:U2=15:BC4,5)=2:GOSUB 14800 
4880 H2=15:VU2=15:BC5,5)=1:GOSUB 15008 
4036 RETURN 

5008 FOR Y=1 TO 8 

5018 FOR X=1 TO 8 

5@20 IF BCX,Y)=@ THEN X1=X:Y1=7: 

6000 

9048 NEXT X 

3858 NEXT Y 

58728 GOSUB 7808 *FIND TOP NO 

5075 IF T1=@ THEN 29=29+1 =RETURN 

5080 H2=F1*3:U2=F2*3:B(F1,F2)=1 :GOSUB 
15888 

5890 29=29-1:IF 29<@ THEN 29=08 

5188 GOSUB 18800 

5118 RETURN 

6008 REM VERTICAL DOWN 

6010 T=@:IF Y1>6 THEN 6180 

6828 FOR Al=Y1+1 TO 8 

6030 IF BCX%1,A1)=@ THEN 6189 

6040 IF BCX1,A1)=1 THEN B1CX, YJ=B1CX, 
Yi+T:GOTO 6108 

605@ IF BCX1,A1)=2 THEN T=T+1+RNDC1) 


6@6@ NEXT Al 
61@@ REM VERTICAL UP 


6110 T=@:IF Y1<3 THEN 6200 


“TF YOU’?RE NO 
“SELECT ANY GAME L 
“SCREEN, AND PRESS 


“TURN. THEN WATCH 


; "PRESS 


6120 FOR A1l=Y1-1 TO 1 STEP-1 

613@ IF BCX1,A13J=@ THEN 6280 

6140 IF BCX1,A1J=1 THEN B1CX, Y)=B1CX, 
YJ+T:GOTO 6200 

615@ IF BCX1,A1J=2 THEN T=T+1+RNDC1) 
616@ NEXT Al 

6200 REM HORI2 RIGHT 

6218 T=@:IF X1>6 THEN 6302 

6220 FOR Al=xX1+1 TO 8 

6238 IF BCA1,Y1)J=@ THEN 6382 

624@ IF BCA1,Y1J=1 THEN B1CX,Y)=B1(X, 
YJ+T:GOTO 6388 

625@ IF BCA1,Y1)=2 THEN T=T+1+RNDC1) 
626@ NEXT Al 

6388 REM HORIZ LEFT 

6318 T=@:IF X1<3 THEN 64098 

6320 FOR Al=X1-1. TO 1 STEP-1 

6330 IF BCA1,Y1)=@ THEN 6488 

634@ IF BCA1,Y1)=1 THEN B1C(X,Y)=B1Cx, 
YI+T=GOTO 64828 

6358 IF BCA1,Y1)J=2 THEN T=T+1+RNDC1) 
6368 NEXT Al 

6408 REM DIAG DOWN RIGHT 

6418 T=0:IF Y1>6 THEN 6500 

6420 X2=X1+1:IF X1>6 THEN 6500 

643@ FOR Al=Y1+1 TO 8 

6440 IF BCX2,A1)J=@ THEN 6520 

645@ IF BCX2,A1)J=1 THEN B1CX, YJ=B1Cx, 
YJ+T:GOTO 65988 

6460 IF BCX2,A1)J=2 THEN T=T+1+RNDC1) 
6478 X2=X2+1:1F X2=9 THEN 658 

6488 NEXT Al 

6508 REM DIAG DOWN LEFT 

6510 T=@:IF Y1>6 THEN 6602 

6528 X2=X1-1:IF X1<3 THEN 66028 

6530 FOR Al=Y1+1 TO 8 

6548 IF BCX2,A1)J=@ THEN 6622 

6550 IF BCX2,A1J=1 THEN B1CX, YIJ=B1Cx, 
YJ+T:GOTO 6602 

6560 IF BCX2,A1J=2 THEN T=T+1+RNDC1) 
6570 X2=X2-1:I1F X2=@ THEN 6688 

6580 NEXT Al 

6688 REM DIAG UP RIGHT 

6618 T=0:IF Y1<3 THEN 6700 

6620 X2=X1+1:IF X1>6 THEN 6788 

663@ FOR Al=Y1-1 TO 1 STEP-1 

664@ IF BCX2,A1)=@ THEN 67280 

665@ IF BCX2,A13J=1 THEN B1CX,YJ=B1CX, 
YJ+T:GOTO 6708 

6660 IF BCX2,A1)J=2 THEN T=T+1+RNDC1) 
6670 X2=xX2+1:IF X2=9 THEN 6780 

6680 NEXT Al 

6700 REM DIAG UP LEFT 

6718 T=0:IF Y1<3 THEN 6798 

6720 X2=X1-1:1F X1<3 THEN 6798 

6730 FOR Al=Y1-1 TO 1 STEP-1 
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6748 
6750 
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IF BCX2,A1)=@ THEN 67398 
IF BCX2,A1J=1 THEN B1CX, YJ=B1CX, 


YJ+T:GOTO 67398 


6768 
677 
6788 
6790 
70288 
7010 
7015 
7020 
7030 
7040 
FI=NiF 
7078 
728@ 
72038 
7128@ 
2112 
7120 
7130 
714@ 
2158 
199aa 
10012 
19822 
18188 
OWN 
1011@ 
1012 
1013@ 
1014 
10152 
19228 
P 
10218 
10228 
1923@ 
1024 
18258 
10322 
GHT 
10312 
1932 
19338 
2342 
1035 
1942 
FT 
10412 
1042 
10432 
10440 
1845 
18588 


IF BCX2,A1)=2 THEN T=T+1+RNDC13) 
X2=X2-1:1F X2=@ THEN 6796 
NEXT Al 
RETURN 
REM FIND TOP NO 
F1=@:F2=0 
T1=8 
FOR N=1 TO 8 
FOR Nl=1 TO 8 

IF B1CN,N13>T7T1 THEN T1=B1(N,N1): 
2=N1 
NEXT Nl 
NEXT N 

IF T1>@ THEN GOSUB 161980 
FOR N=1 TO 8 
FOR N1l=1 TO 8 
B1(N,;N1)=@ 
NEXT Nl 
NEXT N 
RETURN 

REM CHANGE PIECES 

IF PL=2 THEN H=X:U=Y 

IF PL=1 THEN H=F1:U=F2 

IF U>6 THEN 18280 >UERTICAL D 


FOR C=U+1 TO 8 

IF BCH,CJ=@ THEN 18208 

IF BCH,CI<>PL THEN 18150 
V1l=C :GOSUB 1288@:GOTO 18200 
NEXT C 

IF U<3 THEN 18380 >UERTICAL U 
FOR C=U-1 TO 1 STEP-1 

IF BCH,CJ=@ THEN 18300 

IF BCH,C)<>PL THEN 10250 
V1i=C:GOSUB 12100:GOTO 18388 
NEXT C 

IF H>6 THEN 10488 >HORIZON RI 
FOR C=H+1 TO 8 

IF BCC,VUI=@ THEN 10408 

IF BCC,U)<>PL THEN 10358 

H1=C :GOSUB 12208:GOTO 18480 
NEXT C 

IF H<3 THEN 18588 >HORIZON LE 
FOR C=H-1 TO 1 STEP-1 

IF BCC,U)=@ THEN 185988 

IF BCC,V)<>PL THEN 18458 
H1=C:GOSUB 1238@:GOTO 18580 
NEXT C 


IF H>6 THEN 1806828 >DIAG DOWN 
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RIGHT 
10518 
18520 
10538 
10548 
18558 

a 
10568 
10578 
196282 

GHT 
10618 
18628 
19630 
19642 
10650 

aa 
18668 
18670 
18788 

LEFT 
1871 
18728 
18730 
18740 
18758 

ae 
18768 
10778 
10820 

FT 
18818 
18828 
19830 
18840 
18858 

a2 
19862 
18878 
18928 
10918 
19922 
18930 
18948 
18958 
19968 
18978 
18988 
19982 
19984 
19990 
11888 

BLACK" 
11885 
11818 


C1=U+1:1IF U>6 THEN 18688 

FOR C=H+1 TO 8 

IF BCC,C1)=@6 THEN 10680 

IF BCC,C1)<>PL THEN 10568 
H1=H:U1=C1:GOSUB 1240@:GOTO 186 


C1=C1+1:1IF C1l=9 THEN 10600 
NEXT C 
IF H>6 JHEN 187808 


>DIAG UP RI 


C1=U-1:1F U<3 THEN 10780 
FOR C=H+1 TO 8 

IF BCC,C13J=@ THEN 10780 

IF BCC,C1)<>PL THEN 18662 
H1=H:U1=C1:GOSUB 125@@:GOTO 107 
C1=C1-1:1IF C1=@ THEN 10700 

NEXT C 

IF H<3 THEN 18888 >DIAG DOWN 
Cl1=U+1:IF U>6 THEN 10808 

FOR C=H-1, TO 1 STEP-3 

IF BCC,C1J=@ THEN 18880 

IF BCC,C1J<>PL THEN 10768 
H1=H:U1=C1:GOSUB 1268@:GOTO 188 


C1=C1+1:IF C1=9 THEN 10800 
NEXT C 

IF H<3 THEN 186980 >DIAG UP LE 
C1=U-1:IF U<3 THEN 18908 

FOR C=H-1 TO 1 STEP-]1 

IF BCC,C13J=@ THEN 10988 

IF BCC,C1J<>PL THEN 186860 
H1=H:U1=C1:GOSUB 1270@:GOTO 199 


C1=C1-1:IF C1i=@ THEN 18980 
NEXT C 

S3=6 :S4=@ 

FOR S1=1 TO 8 

FOR S2=1 TO 8 

IF BCS1,S2)=2 THEN S3=S3+]1 
IF BCS1,S2)=1 THEN S4=S4+t1 
NEXT S2 

NEXT S1 

S3$=STRECS3) :S4$=STRS$CS4) 
IF S3+S4=64 THEN SS=1 

IF S3=@ THEN SS=1 

IF S4=@ THEN SS=1 

PLOT 31,18, "SCORE" 

PLOT 28,2@,"WHITE"=:PLOT 34,20," 


PLOT 27,22," 
PLOT 29,22,S3$:PLOT 34, 22,S4$ 


OTHELLO 


1102@ IF SS=@ THEN RETURN 2535 
11@3@ PLOT 29,13, "GAME OVER" :GOSUB 16 1253@ IF PL=1 THEN GOSUB 159@@ 
208 12535 H1=H1+1 
240 IF S3 > S4 THEN PLOT 1254@ NEXT D 
"YOU WIN" 1255@ RETURN 
S4 > S3 THEN PLOT 12608 I=0 
WIN" 12685 FOR D=U TO V1 
IF S3=S4 THEN PLOT 3@,15,"A DRA 1261@ U2=Dx3 :H2=H1*3:BCH1,0)=PL 
12628 IF PL=2 THEN GOSUB 148@9@:GOTO 1 
RETURN 2635 
1=0 1263@ IF PL=1 THEN GOSUB 1590@ 
FOR D=U TO V1 12635 H1=H1-1 
U2=DX3 :H2=Hk3 :BCH,D)J=PL 1264@ NEXT D 
IF PL=2 THEN GOSUB 14808:GOTO 1265@ RETURN 
12708 I=@ 
12030 IF PL=1 THEN GOSUB 1500@ 12785 FOR D=U TO V2 STEP-1 
12@4@ NEXT D 127180 V2=DX3:H2=H1*3:BCH1,D0)=PL 
12@5@ RETURN 12720 IF PL=2 THEN GOSUB 148@@:GOTO 1 
12106 I=@ 2730 
12185 FOR D=U TO V1 STEP-1 12725 IF PL=1 THEN GOSUB 150a@ 
12110 U2=0*3 :H2=Hk3 :=BCH,O)=PL 1273@ H1=H1-1 
12120 IF PL=2 THEN GOSUB 149@@:GOTO 12748 NEXT D 
2140 1275@ RETURN 
1213@ IF PL=1 THEN GOSUB 158@a@ 14Q@@ PLOT H2,U2-1,"lm" 
1214@ NEXT D 1482@ PLOT H2- ,U2,"no" 
1215@ RETURN 1404@ I=I+1:IF I=3 THEN I1=1 
12200 I=8 14@5@ RETURN 
122@5 FOR D=H TO Hl 15@8@ IF H2<1 THEN RETURN 
1221@ V2=UxX3 :H2=0k3:B(D,U)J=PL 150@5 IF U2<2 THEN RETURN 
12226 IF PL=2 THEN GOSUB 148@@:GOTO 15@1@ PLOT H2,U2-1, "hi" 
2248 15@2@ PLOT H2,U2,"jk" 
1223@ IF PL=1 THEN GOSUB 159890 1584@ RETURN 
1224@ NEXT D 16080 PLAY 1,8,2,2 
1225@ RETURN 16@1@ MUSIC 1,5,1,6 
12380 I=0 16028 WAIT 52 
12305 FOR O=H TO Hl STEP-1 16038 PLAY 8,9,8,2 
1231@ U2=Ux3:H2=Dx3:B(D,UJ=PL 1604@ RETURN 
12328 IF PL=2 THEN GOSUB 14@@8:GOTO 1618@ PLAY 1,8,8,@ 
2342 1611@ MUSIC 1,1,5,8 
12338 IF PL=1 THEN GOSUB 15908 1612@ WAIT 5a 
12348 NEXT D 16138 PLAY 8,8,38,0 
12358 RETURN 1614@ RETURN 
12488 I=0 1620@ FOR R=1 Ta 5 
12485 FOR D=U To V1 16285 PLAY 1,8,8,2 
12410 U2=DX3 =H2=H1*3:B(H1,0)=PL 1621@ MUSIC 1,1,7,? 
1242@ IF PL=2 THEN GOSUB 14@@@:GOTO 16220 WAIT 15 
2435 16238 PLAY 8,8,98,2 
1243@ IF PL=1 THEN GOSUB 158a@ 16248 PLAY 1,8,8,8 
12435 H1=H1+1 1625@ MUSIC 1,5,7,7 
1244@ NEXT D 1626@ WAIT 15 
1245@ RETURN 16278 PLAY @,9,0,2 
12588 1=@ 1628@ NEXT 
12585 FOR D=U TO Vi STEP-1 162380 RETURN 
1251@ U2=DX3:H2=H1*3:BCH1,D0)=PL 19@8@ REM SET UP BOARD 
12520 IF PL=2 THEN GOSUB 14@9@:GOTO 1 19@1@ PRINT" A B C ODE 
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OTHELLO 


PRINT" pbb fbb fbb fbb fbb fbb fbb fbb 1922@ PRINT" 
“ " ‘i 
PRINT“te c¢ € © € ©€ € € 19230 PRINT" 
“ s ‘ 
PRINT’ ¢c © © © ¢ © & € 19240 PRINT” 
1 ¥ i 
PRINT" dbbabbabbabbabbabbabbabb 19258 PRINT" 
a is ‘i 
PRINT"2Zé ©¢€© ¢€ © G© © C¢ € 1926@ PRINT" rbbgbbgbbgbbg9bbsbbgbba9bb 
is * is 
PRINT" € © @ @ ¢€ © © 6¢& 19270 FOR X=1 TO 8 
‘“ 192880 FOR Y=1 TO 8 
PRINT" dbbabbabbabbabbabbabbabb 1929@ BCX, Y)=@ 
19388 NEXT Y 
PRINT"3c c 19318 NEXT X 
1932@ RETURN 
PRINT" c oc 20008 REM CHARACTERS 
7 20818 FOR A=(46080+CASCC"a"IJ*KBI) TO C 
PRINT" dbbabbabbabbabbabbabbabb 46080+CASCC"s"I*KB)+7) 
" 20020 READ US:POKE A,US:NEXT :RETURN 
PRINT"46é G@¢ @ ¢€ @ © € & 20038 DATA 3,4,4,4 
a 20048 DATA 3,9,8,0 
PRINT” € ¢ © c¢ © 6 € Ff 28858 DATA 
it 20068 DATA 
PRINT" dbbabbabbabbabbabbabbabb 28078 DATA 
u 20088 DATA 
PRINT"Sec © c ¢ © © € 28898 DATA 
‘ 20188 DATA 5,31,31,63,63 
PRINT" c ¢c ccc ccoe 20118 DATA 8,60,62,62,63,63 
a 20128 DATA 63,63, 31,31,15,3,8,8 
PRINT" dbbabbabbabbabbabbabbabb 29130 DATA 63,63,62,62,60,48,0,0 
" 20140 DATA G@,@,3,8,; 16,16; 32, 32 
PRINT"6c c ccc cece 2815@ DATA 9@,0,48,4,2,2,1,1 
' 20168 DATA 32,32,16,16,8,3,0,0 
PRINT" @¢ ¢© ¢ ¢ © € ¢€ Cc 201728 DATA 48,8,0 
u 20188 DATA 4,4,4 


Ly dy Bs Be Ay 
0,8,8,9,7, 
PRINT" dbbabbabbabbabbabbabbabb 28198 DATA 8,0,8,0,60,4,4 
" 45 4x4e 42 
4,4,4,4, 


“ 
. 


4,4 
14,4 


’ 


4,4,4, 
8,8,8 
4,454 
4,454 
45454, 
8,8,2 
4,4,4, 
8,8,3,; 
8,854 


“ 


4,6 
2,6 
Ag ts 
45? 
4,68,4,4,4 
8,63,4,4,4 
4,63,0,8,2 
1 


v 


“ 


>4 
20200 DATA 38,8,0 
PRINT'Ze ¢ ©€ © © € G&G & 20218 DATA 60, 


Ps 
8,8,@ 


MAP 


1@ PAPER @: INK3 = CLS 28 PRINT TAB(C23) ;CHR$C27) 5;"LCHOOSE OPT 
11 TEXT ION" 

12 PRINT 22 PRINT =:PRINT 

14 PRINT TABC23) 5CHR$C27)5"JBRITISH IS 24 PRINT" 1 DISPLAY GT.BRITAIN" 
LES" 26 PRINT" DISPLAY IRELAND" 
15 PRINT TABC23) ;CHR$C27)5"JBRITISH IS 28 PRINT" DISPLAY BOTH" 
LES™ 3@ PRINT" QUESTIONS: GB. ON 
16 PRINT:PRINT 32 PRINT" QUESTIONS: IRL ON 


24 Oric Owner 


G.B. 


34 
6@ 
62 
72 
38 
95) 
214) 
118 
120 
148 


PRINT me 6 
PRINT :PRINT:PRINT 
INPUT"WHICH DO YOU WANT 
IF C=6 THEN GOTO i989 
HIRES 

PAPER@:INK3 

CURSET i°@,1,1 

REPEAT 

READ A,3 

DRAW A,B, 1 

LNTIL A=-.1 / 
168 DATA 1,5,-15,;17,8,-2,-18,8,13,-6,2 
QA, —-10423,—-3;-35.4,3,-2,3,-35 4 

162 DATA 18,8,8,3,7,7,2,115,4,9,8,3,8,39 
9725254, 9,-4,9,5,3,25,7,-4,55,;5,2 

164 DATA2,-4,10,0,5,8,0,15,-18,5,2,2,- 
P54, 3,2,8,3,-754,8,2,-9,5, -7,-2 

166 DATA -198,2,-5,-2,-3,3,-4,0,90,3,-8, 
-1,0,2,-6,-3,-8,2,-2,9,-8,-2 

168 DATA-11,2,-2,5,-5,-3,-3,2,-2,-153, 
=-2y25153133-15385-5,3,Q, ay-2 

178 DATA@®,-2,8,-2,4,2,12,-10,-11,4,98,2 
»-4,0,-5,-4,-5,2,-1,-1,3,-2,0,-2 

172 DATA —45—25—8u55—-45-3) 2y “25-25-25 1 
6,-18,0,-13,-6,3,-2,-1,11,-18,6,0 

173 DATA 4,2,-2,-3 

174 DATA 29 = 1 33325-3435 -4) 
-3,0,0,-4,4,-8,-4,3 

72> DATA-7,-11,4,-18 

176 DATA-2,8,-7,5,-4,-2,-1,3,-6,-3,0,5 
>-4,-6,1,-1;,2,2,-1,-5,6,-9,-4,-5 
178 DATA 2,-5,-6,8,-4,10,-2,-1,6, 
12,7,10,-24,-5,-18 

188 DATA 18,-16,25,-4 

198 DATA -.1,@ 

200 CURSET 428,169, 1 

218 REPEAT 

220 READ A,B 

230 WAIT 5 

240 DRAW A,B; 1 

25@ UNTIL A= -.1 

255 RESTORE 

260 DATA 4,-7,-8,2,6,-5;,-8,2,-2, 
6,-18,0,0,-3,10,0,0,-4,8,-2,-8,98 
262 DATA 8,-13,4,8,0,-3,-8,9,-8,-3,6, 
3,8,-4,3,0,8,-2,-3,9,90,-10,8,8,2,2 
264 DATA1,-2,7,0,-2,-2,7,-5;-551; 
135-3, 35;-7)8,-2,3,5;,3,-7,4,3,-3533 
266 DATAG,-3,6;,-1,5,11,-2,5,5;,;-2,2,6,- 
By —-2; 2s Sa —-45 Ze — 25. Dy — 35. — 1.5 25 Zu —3 985 O52 
268 DATAS; 8, -2;,55 3575-7515, 3,3,;-17,8),- 
Thy 7s 1y=25 89 3;-195 7 

278 DATA -.1,8 

275 CURSET 95,38,@:CIRCLE 3,1 

288 CURSET 156,181,@-:CIRCLE 2,1 

285 CURSET 1198,180,@:CIRCLE 3,1 


END" 


Wee 


25; 


3,8, 


3,-3 


MAP 


2398 
295 
382 
385 
310 
398 
399 
410 
438 
499 
588 
585 
518 
912 
514 
528 
222 
524 
326 
928 
538 
335 
540 
958 
Sho)s) 
568 
562 
364 
578 
o72 
574 
576 
578 
588 
5398 
a) 31) 
688 
618 
612 
614 
615 
616 
618 
6208 
622 
624 
626 
628 
632 
631 
632 
635 
637 
638 
6393 


CURSET 113,122,@:CIRCLE 3,1 
CURSET 80,25,@:CIRCLE 3,1 
CURSET 92,5,1 
DRAW-S; 12, 1 =DRAW-4, 3,1 

DRAW -3,-8,1:DRAW 12,-7,1 


ON C GOTO5@@,55@,; 588,608,658 


REM *kkkkk DISPLAY GT.BRITAIN x 
FOR U=?@11073? 
GOSUB U 

PRINT :PRINT :PRINT 
PRINT" 

FOR W=1 TO 5 
CURSET A,8,1:CIRCLE 3.5,1 

WAIT 4@ :PING 

CURSET A,B, 1:CIRCLE 3.5,@ 

WAIT 18 

NEXT 

NEXT 

IF C<2 THEN GOTO1@ 

REM kkkkKKK DISPLAY IRELAND *xkxx 
FOR U=801T0818 
GOSUB U 

PRINT :PRINT :PRINT 
PRINT" 

FOR W=1 To 5 
CURSET A,B; 1sCIRCLE 3.5, 1 

WAIT 4@ :PING 

CURSET A,B,1:CIRCLE 3.5,0 

WAIT 10 

NEXT 

NEXT 

IF C<4 THEN GOTO10 

REM xk QUESTIONS GB ¥kXKKKKKKKK 
FOR Q=1 TO 20 

> L=INTCRNOC1)*373+701 

: GOSUB L 

IF POINTCA,B)<>@ THEN 612 

PRINT :PRINT :PRINT 

FOR W=1 TO S 

CURSET A,B,1:CIRCLE 3.51 

WAIT 4@ :PING 

CURSET €,8,1:CIRCLE 3.5,0 

WAIT 10 

NEXT 

CURSET A,B,1:CIRCLE 3.5,1 
PRINT" QUESTION "3Q; 

INPLIT N$ 

IF N$<>A$ THEN 640 
PRINT" 

WAIT 20@ 

GOTO644 


"SAS 


"SAS 


CORRECT" -RT=RT+1 
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G.B. MAP 


64 PRINT:PRINT:PRINT:PRINT" WRONG: T 
HE ANSWER IS ";A$ 

641 WAIT 58a 

644 CURSET A,B,1:CIRCLE 3.5,@ 

645 NEXT Q 

643 GOTO 9828 

65@ REM xx QUESTIONS IRL XxXkxxkkkKkKKKX 
66@ FOR Q=1 TO 1@ 

662 L=INTCRNDOC13X18)+8@1 

664 = GOSUB L 
665 IF POINTCA,BI<@ 
666 PRINT:PRINT =PRINT 
668 FOR W=1 TO 5S 

678 CURSET A;B,1:CIRCLE 3.5,1 
672 WAIT 4@ =PING 
674 CURSET A,B,1:CIRCLE 3.5,8 
676 WAIT 18 
678 NEXT 
688 CURSET 
681 PRINT" 
682 INPUT N$ 
685 IF N$<>AS THEN 699 
687 PRINT" 


P22 
223 
224 
225 
226 
227 
728 
P29 
238 
731 
PSZ 
733 
234 
235 
236 
23? 
801 
882 
883 
884 
885 
886 
88? 
888 
883 
818 
811 
B12 
813 
814 
815 
816 
817 
818 
898 
8339 
988 


TAs 
132: 
126: 
141: 
A=168: 
A=155: 
A=152: 
A=154: 
AH1272: 
A=19@: 
A=176: 
AH172: 
A=156: 


"TNUERNESS" =:RETURN 
"DUNDEE" =RETURN 
7AS="PERTH" =RETURN 
>A$="ABERDEEN" :RETURN 
>A$S="HULL" = RETURN 
ZAS="YORK" =RETURN 
7AS="LEEOS" =RETURN 
2A$S="SHEFFIELD" :RET 
7A$="KINGS LYNN" ?RE 
>A$S="NORWICH" =RETUR 
2A$="CAMBRIDGE" :RET 
>A$="LONDON" ?:RE TURN 
FG 
U 
I 


THEN 662 


>A$="OXFORD" =RETURN 
A=189: 2A$="DOVER" =RETURN 
AH=17 1: >A$="BRIGHTON" =RET 
A=132: : "CARLISLE" :RET 
A=84: 7A$="WEXFORD" =RE TURN 
A=75: "WATERFORD" :RET 
A=58: "CORK" :RE TURN 
A=44: ="KILLARNEY" :RET 
A=42:B= : “TRALEE” :=RETURN 
A=35 :B= : “LIMERICK" =RETURN 
A=S1: "GALWAY" =RETURN 
A=61: 
A=65 :B=117:A$="ATHLONE" : 
A=66 :B=89 :A$="DONEGAL" =R 
A=78 :B=82 :A$S="DERRY" :RET 
A=93 >B=93 :A$="BELFAST" = RET 
A=81 =B=95 :A$="DUNGANNON" :RE TURN 
A=87 :B=96 :A$="PORTADOWN" :RE TURN 
A=85 :B=98 :A$="ARMAGH" :RE TURN 
A=89 :B=102 :A$="NEWRY" =RETURN 
A=86 :B=106 :A$="DUNDALK" :RETURN 
A=88 ?B=120:A$="DUBLIN" :RETURN 


RN 


Ay B,1°*CIRCLE 3.5, 1 
QUESTION "5Q3 


RN 


CORRECT" =RT=RT+1 


WAIT 200 

GOTO692 

PRINT:PRINT=:PRINT :PRINT" 
NSWER IS "5A$ 

WAIT 500 

CURSET A,B,1:CIRCLE 3.5,0 


WRONG: T 


:A$="BIRMINGHAM" :RETURN 
sA$="MANCHESTER" =RETURN 
2A$S="LIVERPOOL" :=RETURN 
7AS="WREXHAM® =RETURN 

7AS="PRESTON" :<RETURN 

7AS="PORTSMOUTH" =RETURN 385 
2A$S="SOUTHAMPTON" :RETUR 319 
N 920 


REM XXxXxXxX 
TEXT 

FOR R=1TO11:PRINT =NEXT 

PRINT TABC22) ;CHR$C27) ;"“NENTER 


SCORES = XXXXXKXKXKKXKX 


708 

209 A=115: 
218 A=117: 
711 A=139: 
212 A=132: 
213 A=128: 
214 A=12@: 
215 AH=142: 


7AS="EXETER" =RETURN 
7A$S="PLYMOUTH" =RETURN 
7A$="BARNSTAPLE" :RETURN 
2A$="BRISTOL" :RETURN 
7A$S="NEWPORT" :RETURN 
>A$="CARDIFF" :RETURN 
2A$="SWANSEA" :RETURN 
:A$="GLOUCESTER" :RETURN 


716 A=154 
URN 


>:B=92 :A$="MIDDLESBOROUGH" =RET 


217 A=150: 
218 A=132: 


7AS="NEWCASTLE" RETURN 
:A$="EDINBURGH" :=RETURN 


719 A=115: 


:A$="GLASGOW" :<RETURN 


220 A=112: 


AS 


"AYR" =RETURN 


221 A=108: 
N 


26 Oric Owner 


A$ 


“FORT WILLIAM" :RETUR 


R NAME" 
921 PRINT TABC22) 5CHR$(27) ;""NENTER 
R NAME" 
925 PRINT:PRINT PRINT :PRINT 


330 


INPUT 


"SM$ 


948 CLS:FORR=1TO8:PRINT =NEXT 
958 IF RT>Qk172 THENSSS 


952 PRINT TABC26);"“HARD LUCK, 
03969 


380 
398 
1888 CLS:END 


PRINT TABC20)3;"EXCELLENT, 


PRINT :PRINT =PRINT” 
F "3Q-1 


OUT O 
RT=@: 
WATT 


Q=0 
588: 


GOTO 18 


"SM$ 
YOU SCORED 


"SMe: 


HUNCH MAN 


2 REM HUNCH MAN 
S PAPER@:INK1:POKE 48035, 
10 CLS:POKE 618, 10:X=1:Y=16:A=36:B=15 
>XX=310:D=0 
11 FOR I=46592 TO 46539 
13 READ A:POKE I1,A:NEXT I 
15 DATA 119,119,119,119,119,119,119,0 
28 FOR 1=46384 TO 46391 
38 READ A:POKE I,A:NEXT I 
40 DATA 12,30, 30,30,63,63,12,0 
598 FOR I1=46376 TO 46383 
6@ READ A:POKE I,A:NEXT I 
78 DATA 62,62,62,62,62,62,62,0 
88 FOR I1=46848 TO 46847 
98 READ A:POKE I,A:NEXT I 
188 DATA 31,21,31,4,31,4,10,17 
118 FOR I=46368@ TO 46367 
12@ READ A:POKE I,A:NEXT I 
138 DATA 31,21,31,4,31,4,18,10 
14@ FOR 1=46824 TO 46831 
158 READ A:POKE I,A:NEXT I 
168 DATA @, 38,126, 30,123,38,60,16 
165 IF D=5@ THEN GOTO 318 
188 PRINT CHR$(12) 
198 PRINT CHR$(4) ;CHR$(27) 3"J 
HUNCH MAN" 
200 PRINT CHR$(4) 
218 PRINT by" 
215 PRINT J.Mark Shilling" 
220 PRINT: 
238 PRINT 
248 PRINT 


+CONTROLS+" 
LEFT...CURSOR LEFT 
PRINT RIGHT...CURSOR DOWN 


PRINT " JUMP....SPACE BAR" 
PRINT:PRINT :PRINT:PRINT =PRINT =PRI 


PRINT CHR$C4) ;CHR$C27) 5"J 
PRESS SPACE" 
2398 PRINT CHR$(4) 
2391 PLOT @,1,4:PLOT 9,2,7 
300 REPEAT :UNTIL PEEK(520)=132 
385 CLS :HM=3 =NN=31@:=NS=66@ 
386 NM=318 :NS=66@ 


318 PRINT "HUNCH MEN SCORE 


328 PRINT " "5HM3" "3SC 
PRINT :PRINT =PRINT :PRINT :PRINT :PRI 
NT =:PRINT:PRINT =PRINT :PRINT =PRINT 
331 PRINT " 
a 
332 PRINT 


333 PRINT 


334 PRINT 

340 PRINT “x%2x2e%% © KK AK K ER 
i ee Se SO oo 

358 PRINT "@@CCCECEEEEECEEEEEEEEEEEECEEGE 
CELEEEEEEEE" 

369 PRINT “XR KRR RAK ARAL ERA KALRALHAEH 
RKRREAAKEAAE" 

378 PRINT "“@@CCCEEEREEEEEEEEEEEEEEAEE 
GECEEEEEEBEA' 

375 PLOT @,16,4 

376 PLOT @,15,4 

377 FOR CC=8 TO 58a 

380 PLOT X,Y,"#" 

381 IF X=9 AND Y=16 OR X=11 AND Y=1 
OR X=13 AND Y=16 THEN1900@ 
382 IF X=15AND Y=16 OR X=17 AND Y=1 
OR X=19 AND Y=16 THEN1QQ0@0 
383 IF X=21AND Y=16 OR X=23 AND Y=1 
OR X=25 AND Y=16 THEN100@0 
384 IF X=2? AND Y=16 OR X=29 ANDY=1 
THEN 10088 

39@ IF PEEKC#38@1)=223 THEN 4398 

392 IF X>36 THEN GOTO NS 

40@ IF PEEKC#3@1)=191 THEN 458 

410 IF KEY$=" THEN 548 

415 IF X>36 THEN GOTO NS 

416 IF A<1 THEN PLOT A,B," ":A=36:PLO 
70,16,4:PLOT 9,15,4 

417 PLOT A,B," ' 

418 A=A-1 

419 IF A<1 THEN PLOT A,B," “:A=36:PLO 
T @,16,4:PLOT @,15,4 

42@ PLOT A,B,"J" 

43@ IF X=A AND Y=B THEN 10002 

44@ GOTO 3898 

45@ PLOT X,Y," ":SOUND 1,6@,1@:SOUND1 
39,0 

451 IF A<1 THENPLOTA,B," ":A=36:PLOT 
8,16,4:PLOT @,15,4 

455 PLOT A,B," " 

460 X=X+1:A=A-1:1IF A<1 THENPLOTA,B; " 
"?A=36:PLOT 90,16,4:PLOT @,15,4 

47@ PLOT X,Y,"_" 

471 IF A<1 THENPLOTA,;B," ":A=36 

472 PLOT A;,;B,"]" 

473 WAIT 18 

475 IF X=A AND Y=B THEN 18000 

488 GOTO 382 

4930 PLOT X,Y," ":SOUND1,60,1@:SOUND 1 
39,9 

491 IF A<1 THEN PLOT A;B," ":A=36:PLO 
1 @,16,4:PLOT “@,15,4 

495 PLOT A,B," " 

5@@ X=X-1:A=A-1 

51@ PLOT x,Y," 
528 WAIT 18 


"SPLOT AsBy 1" 


Onc Owner 27 


HUNCH MAN 


5930 GOTO 382 
548 PLOT X,Y," 


341 


IF A<1 THEN PLOT A,B," "?:A=36=PLO 


1 8,16,4:PLOT @,15,4 


342 
345 
958 
rors, 
560 
361 


IF X>36 THEN GOTO NS 
PLOT A,B,” " 
Y=Y-1:A=A-1 
X=xX+1 

PLOT Rs To 


IF A<1 THEN PLOT A,B," “ :A=36:PLO 


T @,16,4:PLOT @,15,4 


I65 


> SOLIND 


572 
380 
600 
618 
628 
625 


PLOT A,B; "J" :SOUND 1,225,1@:WAITS 
1,0,0 

WAIT 18 

PLOT X;7,' 

PLOT X,Y; "_" 

WAIT1@ 

PLOT 5 Ty" 

IF A=X AND B=Y THEN 18000 


81@ PRINT"HUNCH MEN 
CORE" 
815 PRINT" 
"3SC 
820 PRINT:PRINT:PRINT:PRINT :PRINT : 
NT SPRINT :PRINT ?PRINT =PRINT :PRINT 
830 PRINT" 
a 
848 PRINT" 


"SHM 3" 


mau 


858 PRINT" 


n 


8628 PRINT 
878 PRINT 
KKKKKMKHHKK 
880 PRINT" @GGEEGEEEGE 
GECECEEEEEa" 
89B PRINT" XK 4KK KKK 
XKKKKKKK KK" 


"REARERERALE 


638 
648 
645 


X=Xt+1 

Y=Yt+1 

IF A=xX AND B=Y THEN 18000 
658 GOTO 388 

668 PING:WAITIS:PING:X=1 :NM=695:IFD=5 
Q@THEN 672 

661 FOR I=46824 TO 46831 

662 READ A:POKE I,A:NEXT I] 

663 DATA 8,8,8,17,62,17,98,8 

6728 SC=SC+10@:A=13:B=16:NS=8900 

6398 WAIT 388 

695 PRINT "HUNCH MEN 


3900 PRINT" COGEEEEEEEEOEEEEECEEEEEGAEeEe 
CICICICICCICICICI CR 

91@ PRINT:PRINT:PRINT:PRINT 
9326 PLOT A; By," " 

925 PLOT @,Y,4 

938 PLOT A,Bt1," 

94@ PLOT A,Bt2," 

95@ PLOT A,;,Bt3, 

96@ PLOT A,Bt4," 

97@ PLOT x,Y,"#" 

980 IF PEEKC#3@1)=223 THEN 
998 IF PEEKC#3@1)=191 THEN 
10006 IF KEY$=" " THEN 1270 
7Q@ PRINT " "5HM;" "38 1810 IF -X>36 THEN 28008 
C 1820 A=At+1 

718 PRINT:PRINT =:PRINT :PRINT :PRINT :PRI 1038 IF A>24 THEN A=A-13 
NT =PRINT:PRINT =PRINT :PRINT :PRINT 1040 PLOT A,B,"!" 

720 PRINT " 185@ PLOT A,B+1,":" 

1068 PLOT A,Bt2,"." 

1078 PLOT A;,Bt3,": 

108@ PLOT A,Bt4,"," 

109@ PLOT X,Y,"#" 

114@ IF X>36 THEN GOTO NS 
115@ IF X>11 AND X<26 THEN 
1155 GOTO92¢ 

1166 PLOT &*, 75% 

1161 PLOTA,B," 

1162 PLOTAy Bt,” * 

1163 PLOTA,Bt2," 

1164 PLOT A,Bt3," 

1165 PLOT A,Bt4," 

1166 IF X>36 THEN GOTO 20008 

117@ X=X+1:A=A+1:SOUND1,6@,1@:SOUND 1 
8,8 
1175 
1188 


SCORE " 


7238 PR 


740 PRI 


730 PRI 18880 


YOO: PRINT "FARR KCAR % XK FH BH RK & 
K RREGEER SE" 

7728 PRINT "@@CCEECECEEEEEEEEEEGEEeeEEeGea 
CICICICICICICICICICICns 

PEO PRIN] "“2SEXAKAALAA AAR AXKAAERERAAAAA 
VERMEER ELE BR 

730 PRINT "@C@GCECEEEELCEEEEEEEEEEEEEELE 
CICICICICICICICICIcIC Re 

795 PRINT:PRINT:PRINT =PRINT :PRINT 

736 GOTO 388 

808 PING:WAIT1I@:PING:SC=SC+100:A=13:B 
=11:xX=1:Y=17 :NM=810:G=1 Q 


IF X>11AND X<26 THEN 18008 
WAIT 1@:IF X=A AND Y=B THEN 1180 
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HUNCH MAN 


Lar ey F 10068 PLOT 13,15,"GAME QUER" 
LOTA,B, "1" 18078 WAIT 3200 
LOTA,B+i, "i" 19@8@ PRINTCHR$(6) 3CHR$(17) :RLIN 
LOTA, Bt2, "1" 185@@ PLOT A,B," ":PLOT X,Y," 
LOT A,Bt3, "1" 1@5@1 PLOT A,Bt1," " 
LOT A,Bt+4,"!" 1852@ PLOT A,B+2," 
O 9228 1053@ PLOT A,Bt3," 
LOT X,Y," " 1854@ PLOT A,B+4," 
LOT A,B," * 1855@ A=At1: 
LOTA, +2," * 18555 WAIT ? 
LOT A,Bt3," " 18568 IF A>23 THEN A=A-13 
|OT A,B+4," | 19578 IF KEY$="_" THEN 1272 
X=X-1 :A=A+1:SOLIND 1,68, 1@:SOUND 11006 PLOT A,B,":" 
11@1@ PLOT A,Bt+1,":" 
IF X>11 AND X<26 THEN 18028 11@2@ PLOT A,B+2,"." 
PLOT X,Y, "_" 11@3@ PLOT A,Bt3,"!" 
PLOTA,B, "!" 11@4@ PLOT A,Bt+4,"#" 
PLOTA,B+1, "1" 11858 X=A:WAIT ? 
PLOTA, B+2, "1" 11868 GOTO 1@50@ 
PLOT A,B+3,"!" 20088 PRINTCHR$(12) :PRINT:PRINT:PRINT 
PLOT A,B+4,"i" >PRINT=PRINT :PRINT 
WAIT 12 2881@ PRINT CHR$(4) 3CHRS(27)5"N 
GOTO 928 SUPER BONUS?" 
PLOT ¥.Y," * 20815 PRINTCHRS$(4) 
(oTA,B," " 20016 PING:WAITIQ@:PING:WAIT 1@:PING 
LOTA,Btl," " 20028 SC=SC+INTCRNDC1)*50@@) :0=5a 


Oo 
= 


O° OU 7D OU GP TU 7 UD *v 


>LOTA,B+2," ” 20030 WAIT SQ@Q:NS=66@:X=1:Y=16:CLS:A= 
LOT Aig Bess” " 36 :B=15:NMN=310 

LOT A,Bt14," " 20048 GOTO 3190 

IF X>36 THEN GOTO 20000 8 


YHY-1:X=X+2:A=A+1=SOUND 1,225,190 
S:SOUND 1,0,@ 
IF A>25 THEN A=A-14 
LOT &,Y,"°_" 
LOTA,B, "1! 
LOTA,Btl,")" 
LOTA,Bt2, "1" 
PLO] Aly BARS 
PLOT A,B+4, "i" 
WAIT1@ 
IF X>24 THEN 1321 
IF X>14 AND X<>A THEN 18000 
PLOT X,Y," 
A=Kt 12 Y=Yr] 
IF X=A THEN 18500 
GOTO 9328 
FOR T=@ TO 225 
SOUND 1,1,1@ 
NEXT I 
PING 
PLOT Be Tx" 
HM=HM-1 2 X=] 
WAIT 382 
IF HM=@ THEN GOTO 10068 
CLS:Y=16 
GOTO NM 
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EURO 


10 REM xk FLAGS OF EUROPE xx 

15 REM Xk Written by ANDY GRANT xx 

28 RESTORE 

25 TEXT:CLS:PAPER@: INK2:PRINTCHR$C12) 
3@ REM xk Menu xx 

35 PRINTCHR$(27) 5"J" ;CHR$C27) 5"D" 5SPC 
(6)5"FLAGS OF EUROPE" 


4@ PRINTCHR$(27) 5°45" 5CHREC273 5"A" 5SPC 


(633;"FLAGS OF EUROPE" 
5@ PRINT 
55 PRINT" 
6@ PRINT" 
7Q@ PRINT" 
8@ PRINT" 
946 PRINT" 
1@@ PRINT 
11@ PRINT 
12@ PRINT 
13@ PRINT" 
14@ PRINT" 
15@ PRINT 
16@ PRINT 
17@ PRINT 
18@ PRINT" 
19@ PRINT" 
20@ PRINT" 
21@ PRINT" 
220 PRINT" 
230 PRINT" Switzerland" 

24@ PRINT" J United Kingdom" 

25@ PRINT:PRINTCHR$C1I135JCHREC27)"L 
ENTER CODE FOR FLAG" 

260 GETK$ 
270 K=ASC(K$) 

275 IFK<480RK> 24THENGOTO262@ 

276 IFK>S?2ANDK <6STHENGOTO26@ 

288 IFK>64THENK=K-S4EL SEK=K-47 
298 X=Kk1@00:GOSUBX 
388 GOTO20 
1000 HIRES:PRINT" 

RITA" 

1010 FORX=@T0199:CURSET@, Xx, 3 
1@15 IFX<670RX> 133THENFILL1,1,127ELSEF 

LLL Ly dg 2s 
182Q@ NEXT 
1838 GOTO25e0a 
2008 HIRES :PAPER?:PRINT" B 
BELGIUM * 

201@ FORX=1T0198:CURSET6,X,1:FILL1,1, 

16 :CURMOV8@,@,1:FILL1,1,19:CURMOU82,a@, 

3 


Austria" 
Belgium” 
Bulgaria 
Denmark" 
Finland" 
France" 
Germany" 
Greece" 
Hungary" 
Iceland" 
Ireland" 
Luxembourg" 
Monaco" 
Netherlands" 
Norway” 
Poland" 
Spain" 
Sweden" 


u 


BWNYe @ 


SFSITron mononowvdrvdwvonvuaown 


2620 FILL1,1,17:NEXT 

2838 GOTO258a@ 

3800 HIRES:PRINT" 

ARIA " 

381@ FORX=@T0199:CURSET@,X,3 


30 Oric Owner 


FLAGS 


3815 IFX<69THENFILL1,1,23 

382@ IFX>68ANDX<134THENFILL1,1,18 

3825 IFX>133THENFILL1,1,12 

383@ NEXT :GOTO258a@ 

498@ HIRES :PAPER1 :PRINT" 

ENMARK" 

401@ FORX=8T0199 

4015 IFX>87ANDX<114THENCURSETQ@, X, 3:FI1 
LL1,1,23:GOTO4@25 

402@ CURSETS@,,3:FILL1,1,23:CURMOU26 
y@sS3PILL1, 15 13 

4025 NEXT 

483@ GOTO25e0a@ 

5@@@ HIRES :PAPER?:PRINT" 

INLAND" 

5018 FORX=8T0199 

5@15 IFX>82ANDX<119THENCURSETG, X, 3:F 1 
LL1,1,2@:GOTOS@25 

5828 CURSETS8@,X,3:FILLi1,1,20:CURMOU36 
»B.StPILLi, ly Se 

5@25 NEXT 

5038 GOTO25aaa 

6008 HIRES:PRINT" 
€E& 

6018 FORX=@T0i99:CURSET@,X,1:FILL1,1, 
28 :CURMOU8@, 8, 3:FILL1,1,23:CURMOU8@, @, 
3 

6020 FILL1,1,12:NEXT 

6038 GOT0259a0 

7008 HIRES:PRINT" 
ANY" 

2010 PAPER? :FORX=1T0199:CURSET6, X,3 

702@ IFX<69THENFILL1,1,16 

7025 IFX>68THENFILL1,1,17 

7038 NEXT 

7035 FORX=133TO199STEP3:CURSET6,X, 3:F 
ILLi,1,19:NEXT 

7040 CURSET239, @, 3:DRAW@, 199, 1 

7@5@ GOTO25aaa 

8000 HIRES:PRINT" 
ef * 

801@ FORX=1T09:FORY=17022:1FX=20RX=40 
RX=6ORX=87HENFILL1,1,23ELSEFILL1,1,20 

8815 CURMOUG, 1,3:NEXTY :NEXTX 

882@ FORX=8T011@:CURSET@, x, 3 

8025 IFX<230RX>S8THENFILL1,1,2@:CURMO 
U44,0,3:FILL1,1,23:CURMOU22,9,3:FILL1, 
1,22 

8838 IFX<230RX%>88 THENGOTO8052 

8035 IFX>44 AND X<67 THENFILL1,1,23:C 
URMOV1190,@,3:FILLi,1,20:GOTO885@ 

884@ FILL1,1,2@:CURMOV44,@,3:FILL1,1, 
23 :CURMOU22, 8,3:£ILL1,1,2@:CURMOU44, 2, 
3 

8845 FILL1,1,23 

8858 NEXTX 


FRAN 


GERM 


GREE 
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8868 GOTO258a0 

36@@ HIRES :PRINT" 
AIR. oy # 

9818 FORX=@T0199:CURSET@,x,3 

9815 IFX<6STHENFILL1,1,17 

9820 IFX>68ANDX<134THENFILL1,1,23 

9825 IFX>133THENFILL1,1,18 , 

390348 NEXT :GOTO25880 

18388 HIRES :PAPER4 =PRINi" 
rCERELANDB °* 

1881@ FORX=@TO199 

18015 IFX>82ANOX<91THENGOTO101864 

1882@ IFX>1@9ANDX<1197HENGOTO198190 

18825 IFX>Y@ANDX<11@THENCURSET@, x, 3:F 
ILL1,1,17:GOTO14885@ 

10835 CURSET?7,%,3:FILL1,1,232=CURMNOUS 
»8,3:FILL1,1,17:CURMOV18,@,3:FILL1,1,2 
3 

10040 =CURMOU1@,@,3:FILL1,1,20 

18858 NEXT 

18068 GOTO25080 


10180 CURSET@,xX,3:FILL1,1,23=CURMOU89S 
98, 3:FILL1,1,17:CURMOU18,@, 3:FILL1,1,2 
3 


10110 GOTO18aS5a 
11Q@@@ HIRES:PRINT" 
AND " 

11018 FORX=@TO199:CURSET@,xX,3:FILL1,1 
+18:CURMOU8@, @,3:FILL1,1,23:CURMOU8@,@ 
3 

11020 FILL1,1,17:NEXT 

110348 FORA=8701S9STEP3:CURSET16@,x,3: 
FILL1,1,192NEXT 

11840 GOTO2Sa0a 

12@0@ HIRES:PRINT" 
OU RG 

1201@ FORX=@TO67:CURSET@,xX,3:FILL1,1, 
1? NEXT 

12828 FORX=68,0132:CURSET@,X,3:FILL1, 
1,23 NEXT 

12038 FORX=13370199:CURSET@,X,3:FILLI 
+1, 20=2NEXT 

1204@ GOTO250a0 

13804 HIRES :PRINT" 

GC oO" 

13010 FORX=87099:CURSET@, X,3:FILLi,1, 
17 NEXT 

13820 FORX=10070199:CURSET@,%,3:FILLi 
+1, 23:NEXT 

13038 GOTO25eaa 

14@0@ HIRES:PRINT" 

RLANOD S" 

14018 GOTO12018 

15@@@ HIRES:PAPERi =PRINT" 
NORWAY " 

158180 FORA=8TO:99 


TRB 


LUXENS 


MONA 


15815 IFX>82ANDX<391THENGOTO1518@ 
15@2@ IFX>1@9ANDX<119THENGOTO15190 
15@25 IFX>S@ANDX<11@THENCURSET@, X, 3:F 

ILL1,1,2@:GOTO15485@ 

15035 CURSET??,X,3:FILL1,1,23:CURMOUS 
9@,3:FILL1,1,2@:CURMNOU18,@,3:FILL1,1;2 
3 

{5040 :CURMOU190,@,3:FILL1,1,17 

1505@ NEXT 

158668 GOTO258aa 

15100 CURSET@,X,3:FILL1,1,23:CURMNOU8S 
9@,3:FILL1,1,2@:CURMOU18,0,3:FILL1,1,2 
3 

15118 GOTO1S58S5~a 
16008 HIRES:PRINT" 
ND" - 
16@1@ FORX=@TOS9:CURSET@,X,3:FILL1,1, 
23 =NEXT 
16820 FORX=i@8T0199:CURSET@,X,3:FILL1 
1,4 73°NEXT 
16838 GOTO2500a@ 

17800 HIRES:PRINT" 

No 

17885 PAPER3 

17010 FORX=@T049:CURSET@,X,3:FILL1,1, 
17 =NEXT 

17020 FORX=15070199:CURSET@,xX,3:FILLi 
si, 1TASNEXT 

17838 GITO25000 

18088 HIRES :PAPER4 :PRINT" 

S WE ODEN" 

1881@ FORX=010199 

18415 IFX>82ANDX<i 1STHENCURSET@, X, 3:F 
ILL1,1,19:G0,018425 

18020 CURSET8@,X,3:FILL1,1,19:CURMNOVU3 
6,@,3:FILL1,1,20 
18825 NEXT 
188038 GOTO2508¢0 
19@@@ HIRES:PAPERI :PRINT" 
TZERELELANO 
19810 FURX=4170159 
19824 IFX>8@ANDX<12@THENCURSET?5,X,3: 
ILL1,1,23:CURMOUS@,@,3:FILL1,1,17 

19825 IFX>8@ANDX<12@THENGOTO1904@ 

19034 CURSET1@6,xX,3:5ILL1,1,23=CURMOVU 
26,8,3:FILL1,1,17 

19848 NEXT 

19858 GOTO25a800 

20800 HIRES:PRINT" 
INGOOA 

208id CURSE7T@,2@,1:FILL120,1,280:CURSE 
7T@,65,1:FILL31,1,23 

20015 CURSET@,7@,1:FILL21,1,17:CURSET 
@,30,1:FILLS,1,23:CURSET@, 124,1:FILL8, 
1,23 

20828 FORL=@7T029:CURSET@+2XL, 35+L, 1:F 


PO. 6 


UN ITED K 
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TLLi,1,;23:NEX7 
2003@ FORL=@TO29:CURSET@+2xL,125-L,1: 
PILL15 1523 2NEXT 

200406 CURSET@, 20,1:FILL190,1,17:CURSET 
Q,133,1:°5ILL8,1,127 

20058 FORL=@T034 :CURSET@+2xXL, 38@+L, 2:F 
ILLi5 1,5 172NEXT 
20050 FORL=07034: 
FilbLis15173NEXT 
20078 FORL=87044 :CURSET@+2XL,2d+L,i:F 
Lis1,23:NEX7 
20884 FORL=@7044 :CURSET@+2XL_L,14@0-L,1: 
FILLi,;1,23:NEXT 
20090 FORL=8704@:CURSETI5+2xXL,2d1+L,1: 
FILL1,1,20:NEX7 
20108 FORL=071044:CURSET1IS5+2kL,1490-L, 1 
>FILL1,1,2@:NEXT 

20118 CURSET1I@@, 2a, 1:5 ILL45,1,23:CURS 
E1TI@@, 95, 1:FILL4A5, 1,23 
2012@ CURSET1@5,2@,1:FILL12@,1,17:CUR 
SET 135,28, 1? FILL120, 15,23 
20134 CURSET135, 7@, iF ILL28,1.17:CURS 
ET14@0,26,1:FILL4@,1,20 
20140 CURSET14@,1€@,1:FILL40,1,2a8:CUR 
SET14@,60,1:FILLS,1,23 
2015@ CURSET14@,95,1:FILL5S,1,23 

24:00 FORL=8T04@:CURSET14@+2xkL,6@-L, 1 
3 ENEXT 
L=@,04@0:C 
23 =NEXT 
L=81045:C 


JRSET@+2xXL,i33-L,i: 


RSET14@+2xL,1@@0+L, 


RSET14@0+2XL,65-L, } 


RSET199+2xL,95+L, 1 


L=87042ic 
T_L1,1,23=2NEX) 
218 FORL=87035: 
LLis1,23:NEXT 
22Q@ FORL=@T030: 
Li,1,20:NEXT 

348 FORL=0T038:CURSETI25S+2XL,95+L 11 
L1,1,2@:NEXT 
2024@ MUSIC1,0,1,@:4USIC2,0,1,0:MUSIC 
3,;0,1,9:PLAY?, 6,7, 2390 
20250 FORX=17052:READN1,01,;N2,02,N3:0 
3,0 
24208 MUSIC1,01,N1,7:MUSIC2,02,N2,7:M 
USTC3,03,N3,;9:WAITD:2NEXT 
2@270 MUSIC, 3,8,7 2MUSTIC2, 2,12,7 IMUSI 
C3,1,8,9:WAIT3UG:PLAY@,8,0,0 

28288 GOTO25808 

2200d END 

25808 PRINT 

2501@ PRINTSPCC4I)CHR$C140)CHR$C128I)CH 
R$C(1466)'""PRESS <RETURN> FOR MENU "CHRSC 
144) 3 


RSET155+2xkL,65-L; 1 


URSET167+2XL,95+L, 1 


URSET175+2xXL,55-L; 1 
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250286 PRINTCHR$(17) 5 

25048 GETK$ 

299058 RETURN 

2500@ DAIA8,3,12,2,8,1,;780,8,3,12,2,5, 
2,780,18,3,5,3,1,2,78 

26018 DATA, 3;3;3;35 2; 70,75;33;3,3;5525 
35,8; 3,3,35,5,2,35;198,3,3,3,7;2,78 

_ 25828 DATA12,3,;3,3,8,2;70,12,3,5,355;, 
By FU» 1g 4; 18, Bs 192,78 

26038 DATA12,3,;3,3,3,2,78,12,3,3,3;4, 
25.355.10533 1533.45 2; 35385 34 12Z,2,55,2,78 
268480 DATA1@,3,1,3,1,2,7@0,8,3,12,2,3, 
25 7@57'5 3; 18525 25.1578 

26058 DATA8,3,12,2,8,1,70,8,3,8,3,8,3 
1355 1053; 1053; 10535 35, 12535 12,3512; 353 
5 
26055 DATA1;4;,15,4,1,4,35 

2606@ DATA3;4,12,3,8;1,798,3,4,12,3,12 
°1,78,3,4,12,3,5,2,70 

26878 OATA3, 4,12,3,8,2,70,3,4,12,3,8, 
1,35,;1,4,18,3,8,1,35,12,3,8,3,8,2,70 
26084 DATAI,4;,19@,3,;2,1,780,1,4,10,3,7, 
1,78,1,4,10,3,10,1,70 

26898 DATA1,4,190,3,4,1,70,1,4,10,3,2, 
15355125 3;8;3,251,35,5 10,3, 7, 353) 1572 
26100 DATAi2,3,;3,3,8,1,35,12,3,3,3;3, 
1,35; 1,4,5,3,8,2,35;,12;3,3;3;8;2,;35 
26118 JDATA19,3,1,3,8,2,35,8,3,12,2,8; 
2,35 

26128 DATA12,3;,8;3,;8,1,35;12,3,8,3, 3, 
2;35;12,3,8;3;5.2;35,1,4,190,3,6;2;35 
2613@ DATA3,4,12,3,8,2,70 

2614@ DATAS; 4,15,45,1,2,35,3,4,12,3,1,2 
917,15,43;18,3,;152,17,12,3,8,3,3,2, 104 
26156 DATA14,3,1,3,2,1,120 


DORIC 
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The list of Oric Atmos software is growing all the time, as 
new titles are launched, or old titles converted to run on 
he Atmos. We've sorted the available software into 
groups, according to its type. That's to make it easier for 
you to find the titles you are interested in, and to show 
he variety of programs that are available. 

Almost all these titles will run on the Oric-1 as well. 

They will have either a self contained operating system, 
independent of the ROM, or there will be two record- 
ngs, for the Oric-] and the Atmos. Make sure you get 
he Atmos compatible version of a program if it has been 
upgraded recently. Oric-1 software is unlikely to run on 
the Atmos. 
By the time you read this, more Atmos titles may well 
be available. If the title isn’t in your local shop, give him 
the name of the software company, and ask him to order 
t for you. 


ADVENTURE 


Adventure Quest Level Nine 9.90 
Colossal Adventure Level Nine 9.90 
Dungeon Adventure Level Nine 9.90 
Encounter Severn 7.50 
Fantasy Quest JK 6.50 
Fishy Business Salamander 9.95 
Franklins Tomb Salamander 9.95 
Grail Severn 6.95 
House of Death Tansoft 9.99 
Lords of Time Level Nine 9.90 
Lost in Space Salamander 9.95 
Moria Severn 6.95 
Mystery Tower Quark Data 6.95 
Operation Gremlin Wintersoft 6.95 
Ring of Darkness Wintersoft 9.95 
Snowball Level Nine 9.90 
Space Crystal Quark Data 6.95 
The Hobbit Melbourne House 14.95 
Velnor's Lair Quicksilva 6.95 
Zodiac Tansoft 9.99 


SOFTWARE 


ARCADE 


3D Invaders 
Acheron's Rage 
Centipede 
Defence Force 
Delta 4 

Digger 

Dracula 
Dracula's Revenge 
Elektrostorm 
Galaxians 

Ghost Gobbler 
Ghostman 
Gravitor 

Green Cross Toad 
Harrier Attack 
Hopper 

Ice Giant 
Invaders 
Invaders | 
Invaders 2 
Jungle Trouble 
Krokatile Waltz 
Light Cycle 

Loki 

Lone Raider 
Lynx Attack 
Mined Out 

Moon Base Alpha 
Mr Wimpy 
Mushroom Mania 
Oric Munch 
Pasta Blasta 
Probe 3 

Rat Splat 

Scuba Diver 
Spooky Mansion 
Starship 

Super Meteors 
The Ultra 

Them 

Two Gun Turtle 
Ultima Zone 
Xenon | 

Zorgon's Revenge 


Quark Data 
Softek 
PSS 
Tansoft 
Nectarine 
Mercury 
Mr Micro 
Softek 
PSS 
Softek 
JK 
Severn 
Severn 
JK 

Durell 
PSS 
Softek 
Arcadia 
JK 

PSS 
Durell 
Superior 
PSS 

Joe the Lion 
Severn 
Durell 
Quicksilva 
PSS 
Ocean 
Arcadia 
Tansoft 
Arcadia 
IJK 
Tansoft 
Durell 
Mercury 
Sector 7 
Softek 
PSs 
Virgin 
Lothlorien 
Tansoft 
JK 

JK 
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BUSINESS GAMES 
a a 
Account Book Softbacks 12.50 Galaxy 5 Durell 6.95 
Address File Manager Sector 7 6.95 Games for Children Kindersoft 6.95 
Author Tansoft 14.50 Hangman/Match Ciro Soft 6.00 
Index .Peach 15.00 Hare Raiser Hare Soft 8.95 
Labels Peach 10.00 Hicopy Peach 5.00 
Mailstock Peach 15.00 Merchant Prince Ciro Soft 6.00 
Oric Base Tansoft 14.50 Nowotnik Puzzle Tansoft 6.90 
Oric Cale Tansoft 14.50 Oric Golf R&R 5,95 
Records Peach 10.00 Parachutist/Fruit Ciro Soft 6.00 
Shares Peach 10.00 Pontoon/Cribbage IMF 5.95 
Stock Peach 10.00 Quack a Jack Severn 7.50 
Superstock Peach 15.00 Rescue CRL 6.95 
Word Processor Juniper 9.99 Reversi JK 6,50 
_ Writer Peach 30.00 Spooky Mansion Mercury 7.95 
Super Breakout Tansoft 4.50 
Waydor IMF 7.50 
OTHER 
EDUC ATI ON Graffix Windmill 7.95 
Oric Cad Tansoft 9,99 
Masterclass French Tansoft 12.95 Racing Peach ; 10.00 
Masterclass German Tansoft 12.95 
Masterclass Italian Tansoft 12:95 
Masterclass Spanish Tansoft 12:95 
Oric Quizmaster | R&R 5.95 
Oric Quizmaster 2 R&R 5.95 
Picture Book Softbacks 4.95 STRATEGY 
Story Book Softbacks 4.95 ; ; 
Teaching Course Peach 25.00 or “pee aero ae a 
Word Search CDS a oe ee 
World Geography Superior 7.95 Frigate UB 6.50 
; Johnny Reb Lothlorien 6.95 
Oric Trek Salamander 9.95 
Paras Lothlorien 6.95 
Special Operations Lothlorien 6.95 
UTILITY 
GAMES — 
—_—————_  —.. EF Assembler Superior 9,95 
3D Maze/Breakout JK 7.50 Extended Basic Severn 8.95 
4 Games for Children Kindersoft 9.95 Forth Tansoft 15.00 
Bingo R&R 5.95 Lightning Ass/Disass Mr Micro 13.90 
Candy Floss/Hangman JK ' 7.50 Oric Aid Micrograf 11.95 
Check Peach 5.00 Oric Mon Tansoft 15.00 
Chess Tansoft 9.99 Orion Ass/Disass Lothlorien 12.95 
Compendium Salamander 7.95 Super Extender Softek 6.95 
Copy Peach 5.00 Toolkit 48K Superior 9.95 . 
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oriIc-1 SOFTWARE 


The titles on this and the following page are all suitable 
for the 16K or 48K Oric-1 computer. They will not run on 
the Atmos, unless the software company has upgraded 
the program since this listing was compiled. 


Programs are grouped in categories according to 


type. Given the title and the name of the maker, most 
dealers should.be able to order any program for you. 
Alternatively, most companies do mail order business. 
Oric-] owners should also look at the Atmos lists. Most 
of those programs are also suitable for the Onic-1. So, 
you Oric-1 owners are rather spoilt for choice. 
If you know of any other titles we may have ommitted, 


please let us know of them. 


ADVENTURE 


Ace in the Hole 
Arcane Quest 

Balrog Castle 

Black Orc Castle 
Death House 
Dracula 
Dreadnought Disaster 
Dungeons of Intrigue 
Horror Atoll 

Leopard Lord 

Mines of Saturn 

Oric Adventure 
Psycho 2/3 

Quest 

Quest for Power 
Return to Earth- 
Roundsby Incident 
Runelord 

Terror from the Deep 
Tevrogs Kingdom 
The Castle 

Valley 

White Barrows 


Add On 
Add On 
Sigma 
Sigma 
Tomorrow's World 
Mr Micro 
Apocalypse 
ASL 

Add On 
Add On 
Mikro Gen 
Tevward 
LA Software 
J Wolstencroft 
Cable 
Mikro Gen 
Add on 
MCP 

Add On 
Cable 
Bugbyte 
ASP 

ASP 


ARCADE 


Alien Fallout Eltronics 5.95 
Arena 3000 Microdeal 5,50 
Asteroids Arctic §.95 
Bar Blaster Byteland 4.95 
Blowtorch Blaster Touchstone 5,89 
Bozy Boa CDS 5,95 
Dinky Kong Severn 6.95 
Froggee Dream 5,50 
Grid Bomb Touchstone 5.95 
Hunchback Ocean 6.90 
Jogger Severn 6.95 
Killer Caverns Virgin 5.95 
Krokatile Waltz Superior 1.98 
Loch Ness Monster Romik 6.99 
Lunar Mission Superior 7.95 
Oric Invaders Titan 6.95 
Road Frog Ocean 6.90 
Space Invaders R&R 5,95 
Starfighter Durell 6.95 
Terminator Impact 6.50 
The Pits Touchstone 5.00 
BUSINESS 

Data Base Gemini 19.95 
Data Base II Tomorrow's World 14.95 
Spread Sheet Gemini 19.95 
Stockmarket ASP 6.99 
DOMESTIC 

Biorythms Tomorrow's World 5.95. 
Home Accounts QED 10,95 
Personal Finances Juniper 9.99 
EDUCATION 

Assembly Language Honeyfold 14.95 
Basic Programming Honeyfold 14.95 
Beginners Ass. Language Honeyfold 12.50 
Beseiged Sulis 9.95 
Just a Mot Sulis 9,95 
Maths 4 IMF 5.90 
Maths Games Dream 5.50 
Teach... Graphics Basic Concepts 6.95 
Teach Yourself Basic Basic Concepts 6.95 
Word Power Sulis 9.95 
World Geography Superior 9.95 
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GAMES 


10K Othello 

12K Backgammon 
3 Games for Children 
3D Noughts & Crosses 
50 Games 

50 Games 1 

Action 

Alien Pursuit/Maze 
Amazea 

B7 

Bandit 

Battleship Patrol 
Betabomb 
Blockbuster 

Brad .. The Professor 
Breakout 

Cluster Controller 
Code Breaker 
Contract Bridge 
Cube Crazy 

Death Trap 

Dig Dog 

Escape from Manhattan 
Evictor 

Farmer Horace 
Five Alike 
Fruit/Pontoon 
Games Pack 
Games Pack 
Games Pack 16K 
Golf 

Gnd Attack 
Happy Landings 
Jerico 2 

Jumper 

Knights 
Masterminder 
Mastermynde 
Memory Map 
Miner 

Mole Capture 
Monster Mine 
Monte Carlo Rally 
Moonster 
Nightrider 

Orical Backgammon 
Oricthello 

Painter 

Paragram 

Rescue 

Reversi 

Ringo 

Route Rider 
Space Mission 
Space Quest 
Sultans Maze 
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Epsilon 
Epsilon 
Kindersoft 
Epsilon 
Cascade 

UTS 
Touchstone 
JPG Electronics 
Quark Data 
Polar 

Express 
Epsilon 

BAJ Services 
Dream 
Express 
Express 

Ciro Soft 
Headfield 
Touchstone 
Tomorrow's World 
Headfield 
Taskset 

CRL 

Wizard 
Elephant 

Pase 
Computamaster 
Sector 7- 
Shards 

Sector 7 

Gem 

Shards 

Basic Concepts 
Elephant 
Eltronics 
Headfield 
Tomorrow's World 
Headfield 
Byteland 
Computasolve 
Compusound 
Gem 

Express 
Quark Data 
Ciro Soft 
Dormere 
Sigma 

A&F 
Elephant 

CRL 

CDS 

Elephant 
Byteland 

CRL 

Express 

Gem 


5.50 
5.50 
7.95 
5.50 
9.95 
9.95 
5.00 
4.99 
4.95 
6.95 
5.95 
5.50 
4.95 
5.50 
5.95 
5.95 
6.00 
4.95 
5.00 
6.95 
4.95 
6.90 
6.95 
1.95 
6.95 
4.99 
4.95 
7.00 
6.95 
5.95 
7.95 
4.95 
6.95 
6.95 
4.95 
4.95 
5.95 
4.95 
4.95 
8.50 
5.95 
7.95 
5.95 
6.95 
6.00 
1.95 
5.00 
6.90 
6.00 
6.95 
5.95 
6.50 
4.95 
6.95 
5.95 
7.95 


The Clone 

The Jester 

The Word 
Vanquisher 
Variety Pack 
Video Challenge 
West Quest 
Worm 

Wriggler 

Zrymm 


OTHER 


Composer 
Electronic Calendar 
Oriscope 

Romany Oracle 
Synthesizer 


STRATEGY 


10K Startrek 
Airline 
Champions 
Dallas 
Election Fever 
Oil Baron 
Scramble 
Space Shuttle 
Startrek 
Supertrek 
Warlord 


UTILITY 


Ass/Disassembler 
Ass/Disassembler 
Assembler 

Char/Graphic Gen 


Char/Sound Package 


Character Design 
Extended Basic 
Graphics Designer 
Graphics Package 
MC Monitor 

Oric 6502 Ass/Dis 
Oricade 

Oricmon 

T-Comp 

Tape Copier 
Tape Loader 
Toolkit 

Toolkit 1 


Mercury 
Polar 
Headfield 
Elephant 
QED 

QED 

PASE 

PASE 

FBC Systems 
J Wolstencroft 


Sector 7 

Brainbox 
Tomorrow's World 
Quark Data 
Tomorrow's World 


Epsilon 
CCS 
Peaksoft 
CCS 
Whitsoft 
Whitsoft 
Microdeal 
Microdeal 
J. Edwards 
Mogul 
Lothlorien 


Microplot 
Durell 
Superior 
Headfield 
Nebulae 
Tomorrow's World 
Severn 
Eltronics 
Dream 
Pase 
QED 
Severn 
PSS 
Bamby 
GS Teal 
Spectra 
Superior 
IMF 


6.99 
5.95 
4.95 
6.50 
5.95 
6.95 
4.99 
4.99 
5.50 
4.50 


6.50 
6.95 
14,95 
6.95 
7.95 


5.50 
7.95 
6.95 
1.95 
7.95 
7.95 
8.00 
8.00 
5.50 
6.95 
6.95 


15.00 
6.95 
9.95 
4.95 
5.55 
6.95 
7.50 
4.95 
5.50 
4.99 
1.95 
8.50 
8.95 

12.95 
5.00 

12.95 
9.95 
8.95 
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18 HIMEM#980@ 

2@ TEXT :GRAB:PAPER@:INK1 

21 DING$(53),G$(53),U$(5),B070,1),N$C 
70),;SC55;,4),NC70), X$C65) 

3@ GOSUB153a 

31 CLS :GOSUB3209a 

32 RESTORE :GOSUB43a 

35 GOSUB135¢ 

36 P=2 

5@ CLS 

6@ PRINTCHR$(131)"I am" :PRINTQS$CP) :A$ 

7@ IFSCP,1)>@THEN AS="North" 

88 GOSUB1562@ 

9@ IFSC(P,2)>@ANDLENCA$)>@THENAS=AS+", 
South" 

95 IFSCP,2)>@ANDLENCA$)=@THENAS="Sout 
he 

18@ IFSCP,;3)>@ANDLENCA$)>STHENAS=AS+" 
sEast" 

195 IFSCP,3)>@ANDLENCA$)=QTHENAS="Eas 
i" 

110 IFSCP;43>@ANDLENCA$)>@THENAS=AS+" 
»West” 

115 IFSCP,4)>@ANDLENCA$)=@THENA$="Wes 
t" 

128 IFSCP,1)=@ANDSCP,2)=@ANDS(P, 3)=0A 
NDSCP,4)=Q@THENA$="nowhere at all” 

13@ IFB=1THENA$="DOWN" :SCP,1)=0:SCP,2 
J=0:SCP;,3)=0:SCP,4)=@ 

14@ IFA=1@THENPRINT" YOU HAVE LOCATED 
ALL THE TREASURES & HAVE NEARLY SOLVE 
D THIS" 

141 IFA=1@THENPRINT" THIS ADVENTURE :- 
ALL THAT IS LEFT TO DO NOW IS PHONE H 
OME" 

145 IFA=11THENCLS:INK2:PRINT:PRINT:PR 
INT PRINT 

146 IFA=117THENPRINT"'W ELL 

142? IFA=11THENPRINT" YOU HAVE COMPLETE 
D YOUR TASK" 

148 IFA=11THENFORX=1TOS:FORY=1T0150:S 
OUND1,Y,1@:NEXTY,xX:SOUND1,0,@:END 

15@ PRINT :PRINT :PRINTCHR$(134)3"I can 

g90 :-":PRINTAS$ 

16@ E=@:FORT=1 TO 51:PP=@: IF BCT,1)= 
P THENPP=1 

170 IFPP=1THEN199 

18@ NEXT :GOTO21@ 

19@ IFE=@THENPRINT :PRINTCHR$(131)5"Th 
at looks like :-" 

20@ PRINTG$CT) :E=E+1 :GOTO18@ 

218 PRINT :PRINTCHR$(C13@);"What should 

I do now"; :INPUT2$ 

215 BS=LEFT$(2$, 2) :C$=LEFT$(2$, 3) 


DONE 


217 FF=FREC"') 

228 CLS:PRINTCHR$(C131)3;"HANG ON A SEC 
gu 

225 IFLEFT$(2$,2)="GO"THENPRINT"Just 
use the first letter" :GOTO62 

238 PING 

240 IFBS="N"ANDSCP, 1)<>@THENP=S(P, 1): 
GOTO6@ 

258 IFBS="W"ANDS(P, 4) <>@THENP=S(P, 4): 
GOTO6@ 

262 IFBS="S"ANDSCP, 2)<>@THENP=S(P, 2): 
GOTO6@ 

270 IFBS="SC"THENGOSUB156@:PRINT" You 
have scored "3A;" out of 11" :GOTO6A 
288 IFBS="E"ANDSCP, 3) <>@THENP=S(P, 3): 
GOTO6@ 

285 IFBS="TH" THEN1L?8@ 

298 IFBS="GE"ORB$="TA"ORB$="GR" THEN?4 
Q 

295 IFC$="CLI"“THENIS2@ELSEIFBS$="RE"TH 
EN173QELSEIFCB$="FU"ORB$="PI"JTHEN1672 
300 IFC$="TIM"ORZ$="READ TIME" THEN213 
i) 

310 IFC$="DOW" THEN1 83@ELSE IFB$="HE"TH 
EN128@ 

315 IFC$="SEA"THEN2@3@ ELSE IFCB$="DR 
"ORB$="LE"ORBS$="GI"JTHENIO12 

320 IFC$="PHO" THEN2@@@ELSE IFB$="QU"TH 
EN185@ 

325 IFC$="LO0O" THEN6@ELSEIFC$="KIS"THE 
N204@ELSEIFBS="PR" THEN1 7090 

326 IFC$="LOA"ORC$="CLO"THEN2@5@ELSEI 
FBS$="PLU"THEN1?75@ 

330 IFC$="EAT"THEN1 879 

331 IFBS="AT"ORBS="KI"ORBS="HI"THENSH 
OOT :GOTO1162 

335 IFCS="OPE"THEN214@ELSEIFC$="SMO"T 
HENPRINT"I DON’T WANT LUNG CANCER?" :GO 
TO68 

340 IFBS="EX"THEN1]17@ELSEIFC$="SWI"TH 
ENCLS:PRINT"I CAN’? T SWIM HERE DUMMY?"': 
GOTO6@ 

345 IFC$="USE"ORC$=" INS" THEN1 2698 

360 IFCS$="WEA" THENI7S@ELSE IFC$="JUM"T 
HEN1810 

365 IFC$="INU"THEN123@ELSEIFC$="BUY"T 
HEN1930 

367 IFC$="CRA"THEN215@ 

378 IFC$="COO"THENPRINT"HOW CAN I Cao 
K ANYTHING HERE?" :GOTO6@ 

380 K$=LEFT$(B$, 13 

390 IFLEFT$CA$, 3) <>"SOR"THENLL=1ELSEL 
L=8 . 

40@ IFB$<>""ANDLL=1ANDK$<>"S"ANDK$ <>" 
N"ANDK$ <> "E" ANDK$ <> "W" THENPRINTX$(6Q) 
410 GOTO62 
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42@ END 

438 FORH=1T051 :FORD=1T04:READSCH, DJ =N 
EXT :READQ$(CHJ :NEXT 

44@ FORH=1T051 :READG$CH),BCH,1) =NEXT 

45@ FORH=1TO69 :READN$(H),NCH) =NEXT 

46@ RETURN 

4708 DATA2,98,0,@,in the repair departm 
ent,4;,;8,3,@ 

471 DATAin the intergalactic flight d 
eparture lounge,@,0,5,2 

472 DATAin the loading bay. There is 
a sign here. It reads ’DROP TREASURES H 
ERE 

473 DATA@,2,0,0,in a sweet shop,6,8,8 
33,in the radar room,;11,5,13,7 

474 DATAin the BLAST OFF area,8,8,6,0 
»in the crew’s rest quarters,@,7,0,42 

475 DATAIn the crew’s self service ca 
feteria,@,@,18,@,in the freighter’s st 
ore 

476 DATA43;11,;8,9,;in a mark one zolgr 
at space freighter,10,6,0,49;, in a corr 
idor 

47? DATA@,13,8,8,In the Lord High Exe 
cutioner’s of fice,12,15,14,6 

478 DATAin my galactic firebird trave 
tler,;17,;16,22,13,in the main cabin,13, 
Q 

4793 DATA16,@,by the control console;1 
4,28,0,15,0n the flight deck,18,14,9,9 

4828 DATAin the cargo hold,;47,17,8,@; i 
n the loading bay 

481 DATA@, 280,34,9,in the crew’s recre 
ation area,19,22,23,21,in a large duct 

482 DATAG,8,20,8,0n the docking platf 
orm, 28, 24,32,14, in a large passage 

483 DATA®,G,0,20,in the docking bay,2 
2,;9,25,8,in a small cupboard,@,@0,@,24 

484 DATAon a narrow ledge,@,9,31,0, in 

a small stockroom 

485 DATAG, 44,29,28, in an intergalacti 
c¢ amusement arcade,16,0,27,0 

486 DATAin the antique games section; 
31,30,;8,27,0n a dusty aluminised sheet 

487 DATA2ZS,8@,41,8,0n an aluminised sh 
eet on the planet surface. 

488 DATA32,29,8@,8,in a narrow corrido 
7T,33,31,48,22,in the corridor of Gordo 
¥ 

489 DATA@,32,8,8,in a wiring duct,a,3 
5;8,19,in a maintainence room; 34,37,0; 
51 

49@ DATAin the ARD Capplied research 
deptJ),;9,@,8,37,in the main chemical st 
ore 

491 DATA35S;,;38,@,0,in the main laborat 
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ory of the space station,37,;0,0,@ 

492 DATAin a tiny room. To the South 
I can see a deep chasm? 

493 DATA38,@,0,@,in the rest home for 

ancient crewmen,@,0,8,31,in a shower 

494 DATA@,9,8,3@,in a hyperspace inte 
r9galactic phone booth.,0,9,8,@ 

495 DATAby the refuse disposal unit,@ 
»18,8,8,in the changing rooms,27,0,8,8 

496 DATAin the DALEK translation labo 
ratoty,;8,19,0,46,in a small workshop 

497? DATA@,G,45,0,In a gallery full of 

ZOBLOVUIAN paintings. ,8,18,0,@ 

498 DATAin the Zoblov control chamber 
38,80,8,32,in a kitchen,50,9,11,8 

439 DATAin a space caretaker’s mainte 
nance room,@,49,@,0,in a cupboard 

5@@ DATA@,@,35,8,spinning in a space- 
time vortex 9999 

52@ DATAan inter galactic telephone,4 
l,a phaser 9un,21,a space-walker uni fo 
Tm 

521 DATA43,a pair of dataphones,44,a 
new XROMXK for an ORIC1,26 

S22 DATAa Goldinthian Warrior attack i 
ng a poordefenceless kitten,2 

323 DATAa bar of chocolate,4,a pet Tu 
9iZ monster,19,some food,?7 

524 DATAa Van de Graaff generator, 35, 
an old caretaker from Folvat,31 

5325 DATAa book of evil spells,25;a pi 
ece of #KRYPTONITE# in a lead cask 

5926 DATA12,a statue to LEFT$he hero o 
f zolgon--- #PACMAN#, 23 

527? DATAthe beautiful Cbut venomous) 
spider woman of Poturia,38 

328 DATAa packet of Polvanian cigaret 
tes,;4,an angry laboratory technician,3 
e, 

329 DATAa cage of venomous snakes,51, 
a lLever,47,a painting,48,a screwdriver 
343 

53@ DATAa bottle of paint stripper, 36 
3a giant Poturian lizard’s e99,48 

531 DATAa XJEWEL* encrusted frying pa 
n,48,a rusty nail,45 

532 DATA a XWARPX transporter crystal 
339,a roll of paper,4@,a XLOG BOOKX,9 

533 DATAa rope ,18,"",18,a bar of soa 
P,33;some Integrated Circuits, 1 

534 DATAan intergalactic SWISS FRANK 
lying on the floor.,3 

535 DATAa cricket trophy,6,a jar of xX 
LIGURIAN SPICESX,36,a giant whip,16 

536 DATAa space pilot’s register,15,a 

hyperspace map 
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937 DATA12,an irate Zoblovian Space p 
irate,23,a hologram ,2? 

538 DATAa Llazerian novel,28,a scull & 
crossbones, 34 

939 DATAa clock,14,a large desk carve 
d from solid plastic,;18,a high chair,2 
1 

540 DATAa packet of *MONSTER MUNCH?’ p 
et food,;4,a golden ring, 24 

341 DATAa pile of rubbish,42,a hard d 
ise laser drive for an Oric,; 44 

342 DATAa large computer called HAL,3 
4,an ammeter, 24 

95@ DATATELEPHONE, 1, PHASER, 2, GUN, 2, UN 
IFORM, 3, DATAPHONES, 4, ROM, 5, XROMX, 5 

551 DATAWARRIOR,6,KITTEN;6, CHOCOLATE, 
?,BAR,7,MONSTER,8,F00D,9,VAN DE GRAFF, 
12a 

552 DATAGENERATOR, 18, CARETAKER; 11,800 
K,12,KRYPTONITE, 13,LEAD, 13,STATUE, 14 
953 DATAPACMAN, 14,SPIDER, 15,WOMAN, 15, 
CIGARETTES, 16, TECHNICIAN, 17, CAGE, 18 
954 DATASNAKES, 18,LEVER, 19,PAINTING, 2 
@, SCREWDRIVER, 21, BOTTLE; 22, PAINTSTRIPP 
ER 

955 DATA2Z2, STRIPPER, 22,EGG, 23, JEWEL, 2 
4,PAN; 24,RUSTY,25,NAIL; 25,WARP; 26,CRYS 
TAL 

356 DATA26,ROLL,27,PAPER,27,LOG BOOK, 
28,ROPE, 29, SCAFFOLDING, 38, SOAP; 31 

3597 DATACHIPS, 32, FRANK, 33, TROPHY, 34,S 
PICES, 35, WHIP, 36, REGISTER, 37, MAP, 38 
558 DATAPIRATE, 39,HOLOGRAM, 48, NOVEL, 4 
1,SCULL, 42, CLOCK, 43, DESK, 44, CHAIR, 45,H 
IGH 

959 DATA4S5,PET FOOD, 46,RING, 47,RUBBIS 
H,48,HARD DISC,49,;,DRIVE,49,HAL,; SO 

S60 DATACOMPLITER, 5G, AMMETER; 51 

740 GOSUB147@:IFL=1THEN?72 

708 IFL$="PACKET"ORL$="JAR" THENPRINT" 
PLEASE BE MORE SPECIFIC2" :GOTO6a 

768 GOTO219 

778 E=@ 

78@ FORH=1TO5S1 

783 IFBCH,1)=P ANDBCNCR)J,1)=P THENE=1 
790 NEXT 

80@ IFE=@THEN212 

818 CLS 

820 IFR=13THENAA=1 

821 IFP=1ANDR=47ANDSS<>1THENPRINT"The 
man worn’t let me have more than 1":GO 
TO6@ 

825 IFHH=1ANDCR=220RR=23) THENPRINTX$( 
62) :GOTO6a 

830 JFP=2ANDR=8ANDAD <> 1 THENPRINTX$( 62 
}:GOTO62 


832 IFP=2ANDR=SANDAD <> 1 THENPRINTX$(4) 
:SHOOT :GOTO184@ 

84@ IFP=4ANDCR=1@0RR=1 1ORR=230RR=240R 
R=62) THENPRINTX$(3) :GOTO60 

842 IFP=1Q@ANDR=44THENPRINTX$(23) :GOTO 
68 

8598 IFR=47THENAC=1 

852 IFP=19ANDR=12ANDAE <> 1 THENPRINTX$C 
6) :GOTO6@ 

855 IFP=19ANDR=12ANDAE=1 THENPRINTX$C2 
} 

857? IFR=1@0RR=11THENAB=1 

868 IFR=48THENAF=1 

863 IFP=23ANDCR=2@0RR=21)ANDAJ <> 1 THEN 
PRINTX$(33) :GOTO6@ 

865 IFP=23ANDR=S4THENPRINT"JUST HOW A 
M I SUPPOSED TO DO THAT?" :GOTO6a 

878 IFR=48THENAF=1 

871 IFP=12ANDR=S3THENPRINT"SECURITY G 
UARDS COME IN AND ARREST ME?" :2AP:GOTO 
185¢ 

888 IFP=3ANDR=48ANDG$(33) <>"SOME CHAN 
GE" THENG$(33)="A SWISS FRANK" 

89@ IFP=14ANDR=S8THENPRINT"It’?s screw 
ed to the wall" :GOTO6a@ 

892 IFP=12ANDR=19THENPRINTX$(4@) :SHOO 
T:GOTO185@ 

895 IFP=12ANDR=18ANDAK <> 1 THENPRINTX$(C 
41) :GOTO6@ 

897 IFP=12ANDR=18THENG$(13)="XKRYPTON 
ITEX" 

98@ IFR=16THENPRINT"NOT LIKELY" :GOTO6 
3) 

983 IFR=28THENPRINT"Do I have to list 
en to these stupid suggestions?" :GOT 
068 

9305 IFR=260RR=27THENPRINT"I?m not g90i 
ng near there?" :GOTO6a 

91@ IFP=37ANDR=2STHENPRINT"Do you thi 
nk this is a game?" :GOTO6@ 

911 IFP=35ANDCR=140RR=15) THENPRINTX$C 
36) :GOTO1848 

3$2@ IFP=38ANDCR=220RR=23)ANDAG <> 1 THEN 
PRINTX$C€24) :-G$C15)="" :GOTO6@ 

922 IFP=43ANDR=4THENPRINT"I AM NOT AL 
LOWED TO CARRY ONE OF THOSE" :GOTO6@ 

933@ IFP=34ANDCR=670RR=68) THENPRINT" I 
have just been arrested for theft2":GO 
T01850 

340 IFP=42ANDOR=64ANDAI <> 1 THENPRINTX$( 
32) :GOTO6@ 

942 JFP=42ANDR=64THENPRINTX$(43) :G$C4 
B8)="A KEY" 

944 IFP=44ANDCR=650RR=66) THENAH=1 

9356 IFP=330RP=43THENPRINTX$(45) :GOTO1 
858 
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STARSHIP RETREAT 


968 E=0 

97@ FORD=1TO3:IFUS(DJ=""THENU$(DPIJ=G$C 
NCRJJ2E=1:0=5 

988 NEXT 

998 IFE=Q@THENPRINT“SORRY 8 
rry any more?" :GOTO218 

19008 BCNCR),1)=8:PING:GOTO6@ 

1818 GOSUB1472 

1020 IFL<>1THENPRINT"I haven’t got a 
"SLE:2AP :GOTO6@ 

1030 E=@ 

18@4@ FORD=1TO3 

1045 IFUS$C(DJ=GS$CNCRIJ THENUS(DI=""3E= 
1 

185@ NEXT 

106@ IFE<>1THENPRINT"I don’t have it? 
"?PING:GOTO64 

107@ BCNCRIJ,1)=P 

108@ CLS 

189@ IFAA=1ANDR=13THENAA=2 

1093 IFAB=1ANDCR=1@0RR=11)THENAB=28 

19095 IFAC=1ANDR=47THENAC=@ 

1@96 IFP=38ANDCR=1@0RR=11JANDHH<> 1THE 
NPRINTX$(27) :G$C15)="*A PEARLX" 

1897 IFP=38ANDCR=1@0ORR=113ANDHH<> 1 THE 
NN$(23)="PEARL" :AG=1 :G$(7)="" :H=8:GOTO 
68 

110@ IFP=2ANDR=12THENPRINTX$C(5) :G$(63) 
="AQ xGOLDX name tag":S(2,2)=1:AD=1 

1104 IFP=2ANDR=12THENN$(8)="GOLDP" :N$C 
9)="NAME TAG" :2AP :GOTO6@ 

1118 IFP=19SANDR=62THENAE=1 :PRINTX$(7) 

1113 IFAP=1ANDR=48THENAF = 

1115 IFP=31ANDR=24ANDKR<> 1THEN198¢ 

1117 IFP=23ANDR <> S?7ANDAJ <> 1THENPRINTX 
$(35) :GOTO184¢ 

112@ IFP=37ANDR=3@8THEN263@ 

1123 IFP=38ANDR=4S5THENPRINTX$C29):SC3 
8,2)=39 

1124 IFP=38ANDR=45THENG$(38)="In a tr 
ansporter beam" :GOTO6@ 

113@ IFP=34ANDAH=1ANDCR=650RR=66) THEN 
AH=2 

1133 IFP=23ANDR=S7 THENPRINTX$(C34) :AJ= 
1:G$C(39)="" :G$C42)="" :GOTO6O 

1135 IFR=320RR=33THENPRINT "“AAAGGGHHH 2 

it has sprayed all over me$":2AP:GOTO 
1842 

1148 IFR=34THENPRINTX$(42) :G$C23)="": 
ZAP :GOTO6a 

1142 IFR=24ANDKR=1THENPRINT"I get arr 
ested for dropping Litter?" :GOTO1859 

115@ GOTO6G 

116@ IFP=2THENPRINT"I’?m not doing tha 
t" :GOTO62 

1163 PRINT"You must be mad?" :GOTO6@ 


I can’t ca 
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1176 GOSLIB147@ 

118@ JFP=2ANDR=STHENPRINTX$(C1) :GOTO21 
1) 

1182 IFP=2ANDR=8THENPRINTX$(2) :GOTO21 


Q 

1183 IFP=43ANDR=4THEN"I?d rather not? 
It’s so horrible?" :GOTO6@ 

1185 IFP=38ANDR=23THENPRINT"She’s bea 
utiful but deadly%" -GOTO6@ 

1198 IFP=19ANDR=12THENPRINT"IT LOOKS 
TAME 2" :GOTO6@ 

1192 IFP=31ANDR=16THENPRINT"“He 
ing GIVE US A FAG MATE" :GOTO6a 
120@ IFP=18ANDR=SSTHENPRINT"It’s elas 
tic?" :GOTO6a 

1202 IFP=12ANDCR=180RR=19) THENPRINT" I 
T’?’S LOCKED?" :GOTO6@ 

1204 IFP=6ANDR=439THENPRINT"What an UG 
LY yhing§$":GOTO6S 

121@ IFP=12ANDR=S3THENPRINT"It’s stam 
ped TOP SECRET?" :GOTO6@ 

122@ PRINT"I can’t see anything speci 
al%" :GOTO6a 

1230 PRINT:PRINT:PRINT"I HAVE :-":F=@ 
1232 FORH=1T03:IFU$CH)<>""THENPRINTU$ 
CH) :FH1 

1240 NEXT 

125@ IFF=Q@THENPRINT"not a sausage?" 
1255 GOTO210 

1268 CLS:2AP :GOSUB147@: IFP=23ANDR=64T 
HENPRINTX$(38) :GOTO6@ 

1261 IFP=12ANDR=64THENPRINTX$(39) :AK= 
1 :GOTO6S 

1278 PRINT"I?m afraid I just don’t un 
derstand you 9%" :GOTO6a 

1280 CLS:IFP=2THENPRINT"He must be fr 
ightened of something?" :GOTO6@ 

1282 IFP=16THENPRINT"I’d watch it if 
I were you?" :GOTO6a 

1284 IFP=1THENPRINT"I would try seare 
hing through them’" :GOTO6d 

1298 IFP=31THENPRINT"He demands a FAG 
9 before he will let me pass2%" :GOTO69 
138@@ IFP=23THENPRINT"What do pirates 
Like?" :GOTO62 

13@2 IFP=18THENPRINT"Why not open it 
2" ;GOTO6G 

1385 IFP=4THENPRINT"A notice here rea 
ds "SHOPLIFTERS WILL BE PROSECUTED?" :G 
OTO6A4 

131@ IFP=42THENPRINT"People always th 
row SOMETHING which isof use?" :GOTO6a@ 
1320 IFP=34THENPRINT"It looks Like an 
ORICS" :GOTO6A 

1321 IFP=32THENPRINT"He 
for something’. " 


is say 


igs searching 


STARSHIP RETREAT 


1322 IFP=37THENPRINT"I think he must 
have a screw loose?" :GOTO6G 

1330 IFP=12THENPRINT"The case is made 
of lead and it’s locked?" :GOTO6@ 
1332 IFP=38THENPRINT"Women are usuall 
y fond of chocolates’" :GOTO6@ 

1340 PRINT"I’M NOT GOING TO SOLVE THI 
S FOR YOU!" :GOTO6@ 

135@ X$C1J="The kitten is 
yer: 

1351 X$(2)="The warrior 
cious 9" 

1352 X$(3)="I'?m not a thiefg" 

1353 X$(4)="The warrior aims his gun 
towards me and BANG’" 

1354 X$C4@)="AAAGGHHHY it’s fallen on 
top of me andcrushed me to death?" 
1355 X$(41)J="The case won’t openg" 
1356 X$C5S)J="The warrior take fright a 
nd runs. The kitten drops something" 


in a bad wa 


looks very vi 


1357 X$(C8)="That seems to do the tric 
takes them and goes away? 


1358 xX$(9)="The assistant takes my mo 
ney and givesme the change" 

1359 X$C7J="It eats some and is in 
good mood nowlt will come nowg" 

1368 x#(6J="It snarls at me ggg" 

1361 X$C273=""how kind of you’? she 
ys; ’please accept this gift?" 

1362 X$C24)="She doesn’t Like that an 
d flies away in discust%" 

1363 X$C29)="Just the job% I can cros 
s the chasm nowgs" 

1364 xX$C31)J="There doesn’t seem to be 

much here?" 

1365 x$(C26)="She slaps me across the 
face and runs off, throwing something 

1366 X$(33)="He won’t let me" 

1367 X$C34)="He thanks me for the gif 
t and takes it away?" 

1368 X$C35)J="That makes him mad. He s 
tabs meg" 

1369 X$C11J="My boss answers and give 
s$ me some earache about being slow 
gu 

1370 x$(36)="As 
e spark of 

1371 X$C22)="He smiles, takes 

me and walks away?" 

1372 X$(23)="It’s fastened at the top 
9" 2X$(38)="WRONG KEY2" 

1373 X$(39)="The key fits and the doo 
rT opens easily" 


I reach out, a massiv 
electricity jumps across 


it from 


1374 X$(42)="What a YOKE?22 the eg99 s 
platters on the floor" 

1375 X$(46)="It’?s gone completely dar 
k. I trip and break my neck9gg" 

1376 X$(45)="a warrior comes in & fir 
es his laser at meg" 

1377 X$(68)="I’?m not doing anything t 
hat stupidgggg" 

146@ RETURN 

1470 L$="" :FORH=1TOLEN(2$) 

1475 IFMID$C2$,H,1)=" "THENL$=RIGHT$C 
2$, CLENC2$)-H)) :H=H+6@ 

1488 NEXT 

1498 R= 

15@@ L=@:IFLENCL$) <2THENRE TURN 

151@ FORH=17T069 

1513 IFLEFT$(N$CH),LENCL$)J=L$ THEN L 
=1:R=H 

152@ NEXT :RETURN 

153@ CLS :FORX=17T02:PLOT1,%,14:PLOT2,xX 
+X ?:PLOTS,X%, "STARSHIP RETREAT" :NEXT 

1548 PRINT :PRINT =PRINT:PRINT=:PRINT"An 
adventure game for the 48K Oricli" 

1541 PRINT :PRINT :PRINTCHR$(131) 5" 

<C> 1983 S.W. Lucas" 

1545 FORX=1TOS:FORY=17T0155 :SOUND1,Y, 
1Q@=NEXTY,% 

1546 SOUND1,8,@ 

1558 RETURN 

1560 A=8:IFBC6;,13=3 THENA=A+1 

1570 IFBCS,13)=3 THENA=At+1 

158@ IFBC15,1)J=3THENA=At1 

159@ IFBC26, 1)=3THENA=At1] 

160@ IFBC14,13J=3THENA=At+1 

1610 IFBC24, 1)=3THENA=A+1 

162@ IFBC13,1)J=3THENA=A+1 

163@ IFBC32,1)J=3THENA=At+1 

1640 IFBC28, 1J=3THENA=At1] 

165@ IFBC35, 1)=3THENA=A+1 

166@ RETURN 

1676 CLS:PRINT:PRINT:PRINT :PRINT" JUST 
WHO DO YOU THINK YOU ARE?" 

1673 PRINT :PRINT :PRINTCHR$(131) 5 "WHAT 
HAVE YOU GOT TO SAY FOR YOURSELF" 5 

1678 FORX=1TO3:FORY=@T0255 STEPS:SOUN 
D1, Y,;1@:NEXTY,xX 

16793 SOUND1,9,@ 

168@ INPUT2$:2$=LEFT$(2$, 3) 

1683 IFZ$<>"SOR"THENCLS:PRINT"WELL I 
WON? T TALK TO YOU ANY MORE’2" :GOTO185a 
169@ PRINT:PRINT"THAT’S BETTER" :GOTO2 
12 

1700 JFP=17THENPRINT"Well you are in 
the zen areag" = ZAP :GOTO6A 

1718 IFP=2THENPRINT:PRINT"nothing hap 
pens@%" :2AP :GOTO6@ 
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STARSHIP RETREAT 


1728 PRINT"NOTHING HAPPENS 2" :GOTO62 

1738 GOSUB147@ 

174@ PRINT"There’s not much here to r 
ead?" :GOTO6a 

175@ IFP<>47THENPRINT"NOT AT THE MONE 
NT" :GOTO6@ 

176@ GOSUB147@ 

1770 IFR=28THENPRINTX$(46) :GOTO184GEL 
SEPRINT"PULL WHAT?" :GOTO6G 

1788 GOSUB1472 

1798 IFP=43THENPRINT"It’s the wrong s 
ize%" :GOTO6S 

1791 PRINT"Don’t be silly" :GOTO6d 
180@@ GOTO6d 

181@ IFP=1@ANDB=1THENPRINT"I JUMP FRO 
M THE TOP & BREAK MY NECK" :GOTO184@ 
1812 PRINT"I Can’t2" :GOTO68 
1820 IFP=1@THENG$C1@0)="At the top of 
a Tope" :G$C(3G)="some scaffolding” 
1821 IFP=1QTHENB=1:GOTO6@ ELSEPRINT"D 
ON’ T BE SO STUPID?" :GOTO6a@ 
183@ IFP=1Q@ANDB=1THENPRINT"O.K.":SC1@8 
»1)=43:S01@, 2)=11:SC19,3)=17:S018,4)=9 
1832 IFP=1@ANDB=1 THENG$(1@)="In an ol 
d spacefreighter 2?" :B=@:GOTO6@ 
1835 PRINT"HOW?" :GOTO68 
1840 PRINT :PRINT:PRINT=:PRINT:PRINT'I 
AM DEA DO ge 
1844 PRINT:PRINT:PRINT"DO YOU WANT TO 
PLAY AGAIN?" 
1858 REPEAT 
1851 GETA$ 
1855 UNTILA$="Y"ORA$="N" 

1860 IFA$="Y" THENRLN 
1861 CLS*«PRINT"B Y E 
1862 END 

1870 IFAA=1THENPRINT"I eat it 
T BE A RED HERRING 
gu 

1871 IFAA=1 THENZAP :GOTO1846 

188@ GOSUB1472@ 

189@ IFR=62THEN211@ELSEPRINT"That’s n 
ot possible" -GOTO6G 

1908 FORH=1TO3:IFUS$(CHIJ=G$C32) THENUSCH 
Ja" " 'G$C32)="" 

1982 NEXT 

1918 FORH=1T03:IFU%CHIJ=G$C7) THENU$SCH) 
a""3G$ C7j="" 

1915 NEXT 

1928 GOTO6e 

1930 IFAF<>1THENPRINT"WHAT WITH?" :GOT 
O6@GELSEGOSLUB147@ 

194@ IFP=4ANDCR=120RR=110RR=230RR=240 
RR=62) THEN195@ 

1941 PRINT"Not at the moment?" :GOTO6@ 
195@ PRINTX$(9) 


BYE 2" :2apP 


IT MUS 
It makes me sick 
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1951 FORD=1TO3 

1952 IFU$(D)<>G¢$(33) THEN1S62 

1953 U$(DJ="Some change" :G$(33)="Some 
change" :N$C48)="CHANGE" 

1968 NEXT 

13965 GOTO86a 

197?@ N$(48)="CHANGE" :GOTO86@ 

1988 PRINTX$(8) :$C31,4)=26:S031,2)=29 
°S$(31,3)=4@:G$C11)="" 

1981 G$(i6J="a cigarette wrapper" :N$C 
24)="WRAPPER" :KR=1 :GOTO6@ 

1398 GOTO6S 

2800 IFP<>41THENPRINT"I?’m not E.T. I 
need a phone?" :GOTO6@ ELSEGOSUB1470 
2010 IFLEFTS(L$, 3) <>"HOM" THENPRINT"I 
don’t know that number 2" :GOTO6@ 

2012 IFA<>1@THENPRINTX$(11) :GOTO69 


2015 CLS:PRINT:PRINT:PRINT"WELL DONE? 


2016 PRINT:PRINT:PRINT" THE TRANSPORT 
SHIP IS ON ITS WAY ¢" 

2017 PRINT:PRINT:PRINT" YOU HAVE SOLVE 
D THIS ADVENTURE": 

2018 FORX=1T010:FORY=255TO@STEP-18:S0 
UND1,Y,1@:NEXTY, X:SOUND1,0,@ 

2030 X$(20)=""2X$C21)=""sPRINTX$(22): 
G$C17)J=""2:SC37,3)=36:PING 

2032 G$(21)J="a few screws" :GOTO6A 
2048 GOSUB147@:IFP<>38THENPRINT" I’m n 
ot kissing anything here’" :GOTO6 

2041 IFR=220RR=23THENPRINTX$( 26) :2AP: 
G$C15)J="hundreds of tiny spiders" :HH=1] 
2842 IFR=220RR=23THENGOTO6@ELSEPRINT" 
EH?" :GOTO6@ 

2050 IFP<>34THENPRINT"I can’t do that 
here and now dummy’" :GOTO6@ 

280628 GOSUB1470:IFAH<>2THENPRINT"There 
doesn’t seem to be a dise drive" :GOTO 
62 

2070 PRINT"What a boring program not 
Like this one’" :GOTO68 

209@ IFP=1THENPRINT"I can see anew C 
HIP for the ORIC" :SS=1 :G$(32)="XCHIPX" 
2091 IFP=1THENGOTO6@ 

2180@ IFP<>42THENPRINTX$(31) :GOTO6 
2185 PING:PRINT" IN AMONGST ALL THE RU 
BBISH I SEE A KEY" 

2186 G$(48J="a key amongst all 
bbish" :AI=1 :N$C64)="KEY" :GOTO62 
211@ CLS:PRINT:PRINT:PRINT"That’s don 
e it you foolg" 

2112 EXPLODE :PRINT:PRINT:PRINT"I AM R 
OLLING ROUND THE FLOOR IN AGONY" 

2113 PRINT:PRINT:PRINT"What should I 
do now"; 


the ru 


STARSHIP RETREAT 


2115 REPEAT =: INPUT2$:UNTIL LEFT$(2$, 3) 
= " PRA uw 


2120 PRINT:PRINT"Well that seems to d 
oc the trick2" :GOTO6@ 


2130 IFP=14THENPRINT"The clock says 1 
2.85, but it isn’t moving?" :GOTO6a 

2134 PRINT"I don’t have a watch8":GOT 
068 

214@ IFP=18THENPRINT"There’s nothing 

there?" :GOTO6@ELSEPRINT"SORRY" :GOTO6@ 

215@ .GOSUB147@:IFL%*<>1THENPRINT"STUPI 
D"'ELSEIFL$<> "WHIP" THENPRINT "DUMMY "ELSE 
PRINT"NOT NOW" 

2168 GOTO6a 

32808 PRINT" You have been sent upon a 
dangerous missiong" 


32005 PRINT :PRINT :PRINTCHR$(131)3" YOU 
MUST NOT FAIL US 9" :2AP 

32818 PRINT :PRINT :PRINTCHR$(132) 3 
32015 PRINT"We have sent you to the gs 
pace station of ZENDON to try to locat 
et 

32820 PRINTCHR$(132) 5"TEN 
reasure 8" 

32825 PRINT :PRINT :PRINTCHR$(129) 5 
328030 PRINT’ and bring these back to t 
he loading bay. You must then find a 
32035 PRINT"way of contacting us so t 
hat we can come to collect the treas 
utes" 

3205@ RETURN 


items of t 


RUNEWRITER 


REMEKKK KKK KKK KKK KKK KK KKK KKK KKK K KKK 
RUNEWRI TER 


IFPEEK(C #BBA4)=32THENPRINTCHR$( 22) 
CLS :PRINT 
DIMA1$(77),B1$(277) 
PAPER@: INK3 
PRINTCHR$(4) ;CHR$C27) 5"N 
RUNEWRITER" ;CHR$(4) 
723 PRINT:PRINT 
8@ PRINT :PRINTCHR$(4) ;CHR$(27) 3"J 
BY A.K. IRWIN AND W.J. IRWIN" ;CHR$(4) 
9@ PLOTS,;9,"IN THIS PROGRAM YOU TYPE 
IN A" 
188 PLOT4,11, "SENTENCE AND ORIC WILL 
TRANSLATE" 
118 PLOT1,13,"THAT SENTENCE INTO THE 
ELF-RUNES FROM" 
12@ PLOT13,16,"’THE HOBBIT?" 
13@ WAIT19@@ 
14@ GOSUB1@010 
15@ CLS:PRINT :PRINTCHR$(4) ;CHR$(27) 5" 
J runewr iter" ;CHR$(4) 
16@ PLOTS,1@," INPUT YOUR SENTENCE" 
165 PLOT15,11,"NO MORE THAN TWO LINES 
17@ FORI=1T0O1@:PRINT :NEXTI 
175 A$="=" :GOSUB1@@0:INPLITAGS 
18@ LA=LENCAG$) 


185 IFLA>73THENPLOT2,11,"TOO LONG" :WA ~ 


IT5@@8:GOTO15@ 


19@ FORI=1TOLA 
20@ A1$(1)=MID$CAGS, I, 1) 

21@ NEXTI 

22@ LB=0 

23@ FORI=1TOLA 

248 LB=LB+1 

25@ IFA1$C1)<>CHR$C(69)THEN 282 

26@ IFA1$C1+1)=CHR$(65)THENB1$(LB)=CH 
R$(91):I=I+1:GOT041@ 

27@ IFA1$C1+1)=CHR$(69) THENB1$(LB)=CH 
R$(92) :1=1+1:GOTO41@ 

288 IFA1$C1) <>CHR$C78) THEN3@@ 

29@ IFA1$C1+1)=CHR$(71)THENB1$(LB)=CH 
R$(93) :I=I+1:GOTO41@ 

3@@ IFA1$C1) <>CHR$C83) THEN322@ 

31@ IFA1$C1+1)=CHR$(84)THENB1$(LB)=CH 
R$(94):1=1+1:GOTO410 

32@ IFA1$C1) <>CHR$(84) THEN340 

33@ IFA1$C1+1)=CHR$(22)THENB1$(LB)=CH 
R$(95):1=1+1:GOTO41@ 

34@ IFA1$C1)<>CHR$C 79) THEN360 

35@ IFAI$C1+1)=CHR$(79) THENB1$(LB)=CH 
R$C111):1=1+1:G0TO410 

36@ IFAI$CI) <>CHR$(81)THEN38 

37@ B1$(LBJ=CHR$(99) :B1$(LB+1)=CHR$(1 
19) :LB=LB+1:GOTO41@ 

38@ IFAI$C1) <>CHR$(32) THEN4@O 


338 B1$(LB)=CHR$( 123) :GOTO419 
408 AB=ASCCAI$CI1)) 


485 IFA@>=6S5SANDAG <=9@THENB1$(LBJ=CHR$ 
CA@+323)ELSEB1$(LBJ=A1$(1) 
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RUNEWRITER 


41@ NEXTI 10170 DATA28, 18,28, 24,28,18,28,8’b 
44@ A$="-" :GOSUB1GG2 18188 DATA16, 16,16,24,20,18,17,@’c 
450 FORI=1TOLA:PRINTAI$CIIJ 3 =NEXTI=PRI 18198 DATA@,51,45,45,45,51,1,8'd 
NT 18200 DATA34, 54, 42, 42, 42, 34, 34,3’e 
499 AS="." :GOSUB128@9 10218 DATA41,5@, 36, 4@, 48, 32, 32,0’ f 
5@@ FORI=1TOLB:PRINTB1$C1) 3 :NEXTI:PRI 10228 DATA33, 18,12,12,12,18,33,0’9 
NT 18238 DATA34, 58, 46, 34,58, 46, 34,8’h 
95@ A$="-" :GOSUB1G@@ 182498 DATA8,8,8,8,8,8,8,9? i 
688 PRINT"DO YOU WANT ANOTHER TRANSLA 18250 DATA8,8,8,8,8,8,8,0? J 
TION?" 18260 DATA32, 32, 32, 32,40,52,34,0’°k 
618 GETAS 18270 DATA24, 20,18,16,16,16,16,2° | 
628 IFA$="Y" THENISGELSEEND 18028@ DATA@,51,45,45,45,51,08,0’m 
1Q@00 FORJ=1TO38:PRINTA$; =NEXTJ:PRINT: 1829@ DATAG, 8,4@,28,18,8,90,8’n 
RETURN 18388 DATASY, 42, 36; 49, 42, 36, 32,0’0 
100@@ REM USER DEFINE GRAPHICS 18318 DATAI1?, 26,20, 16,20,26,17,@’p 
18010 FORA=#B6D8TO#B7DF 18320 DATA@,9,9,80,0,8,8,0°q 
10020 READB 10338 DATA24, 20,18, 20,24,28,18,0’r 
19838 POKEA,B 18348 DATA32, 16,20,26,19,2,2,0’s 
10840 NEXT 139358 DATAS8, 28, 42,8,8,8,8,0'’t 
18850 RETURN 18360 DATA4S8, 48, 38, 34, 34, 34, 34,20’u 
18100 DATA8, 45,58, 8,8,8,8,0°C 10378 DATA48, 40, 38, 34, 34, 34,34,8’v 
1911@ DATA1I2,18,33,18,12,18,33,0’% 18388 DATA24, 28,18, 20,24,16,16,@’u 
18128 DATAS1,12,12,18,12,12,51,907 ] 18398 DATA42, 42,28,8,8,8,8,0’x 
10138 DATA33, 51,45, 33,45,51,33,0'* 10408 DATAB2, 34, 34,62,42,42,42,0’y 
10148 DATA32, 56, 36, 36,56; 32,32,8? _ 10418 DATA8,8,;8,8,8, 28,42,8’°z 
1015@ DATAG,@,8,8,9,9,9,@” 1842@ DATAG,9,0,8,8,8,8,@° { 
18168 DATA24, 28,18,24,20,18,16,0’a 10500 REMKXKKKXKXKKKKKKKKKKKKKKKKKKKKK 


hFPOOBLPT 
SIH}: GP Ba 
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CHARACTER GENERATOR 


1 REM KOKO KKK KAKA KKK KKK KK KK KK 
*k CHARACTER GENERATOR xx 
2 REM *x by ©. CHIN xx 
xx 5 74-7 84 xx 

4 REM Pes SSE SCS CES SSS SES ECCS SCOSS. 
1@ HIMEMSSZFF :PAPER? : INK4 :CLS :GOSUB4@ 
80° UDG 

2@ PRINTCHRS(6) ;CHR$(17); 

30 FORI=@TO8:PRINT :NEXT :PRINTCHR$(4) 3 
SPCC1@I 3ES3"J5" 5E$3"DCHAR-GEN" :PRINT 

5Q@ PRINT :PRINTCHR$(4) 5SPCC13)3;"by Con 
red Chin" 

68 WAIT25@ :GOSUB3@0@? INSTRUCTIONS 

82 CLS: INK@:PAPERG6 :PRINTCHRS$(4) ; 

81 PRINT:PRINT 

82 IFCTHENPRINTCHR$(17)3:C=@ 

83 IFPEEK(480@39) <>83THENPRINTCHRS$( 28) 
b) 

85 PRINTSPCC13) 3E$3"W BE sy 
9@ PRINTSPCCIIISESS "I" 5ESS"F" SESS"W OM 
ENU " jE$3"U" :PRINTCHRS(4) 
1@@ PRINTSPCC13)5E¢3"W 
=PRINT 

11@ PRINT" ?1? 
ERS" :PRINT 

12@ PRINT" °2? 
CREEN" :PRINT 
150 PRINT" 
ET" :PRINT 

16@ PRINT" 
SET" :PRINT 

198 PRINT" 
?=PRINT 

195 PRINT" 
:PRINT 

208 PRINT" 

ME WILL" :PRINT 
21@ PRINT" 
NU" :PRINT :PRINT 

228 PRINTCHRS(9)5E$3"F"5E$;"D 
SS *?@’ TO END PROGAM" 

2380 GETAS 

248 A=VAL CAS) : IF A>GORCA=@ANDAS <> "8" 
HEN238 

25@ ONAt1GOT030@, 686,800, 2198, 2150, 22 
08,5000 

34@@ CLS:PAPER?: INK@:PRINTCHRS(6) ;CHRS 
C17) :PING:END 

358 PRINT"WHICH CHARCTER IS 70 BE RED 
EF INED?" :T1=4 

355 PRINT"CPRESS RETURN IF YOU WANT T 
O ENTER " 

356 PRINT"THE ASCII-CODE INSTEAD)" 
357 PRINTCHR$(2@) ; 

360 GETA$:IFAS=CHR$ C13) THENPRINT :PRIN 
T:GOT039@ 


” FES gel 


DIRECT ENTRY OF NUMB 
BUILD CHARACTER ON S 
SAYE STANDARD CHARS 
SAVE ALTERNATE CHAR 
SAVE BOTH CHAR/SETS" 
BUILD PICTURE" =:PRINT 
PRESSING °ESC’ AT ANY TI 


RETURN YOU TO THIS ME 


PRE 


365 IFA$=CHR$(27) THENPOP :GOTO8@ 

37@ IFASCCAS) <330RASCCAS$)> 126THEN3SEQ 
380 CHS=A$ =: CH=ASCCAS) :GOTO428 

390 PRINT"ENTER ASCII CODE "S$CHR 
$(8) 5;CHR$(8) 5CHRS(8) ;CHRS(8) 5CHRS(8) 5 
3935 GOSUBS@@ :CH=N 
40@ IFCH<330RCH> 126THENPRIN? =PRINTCHR 
$(113 5CHR$C11)3:GOTO39@ 

41@ CH$=CHRSCCH) 

42@ CLS:PRINT:PRINT :PRINT"WHICH CHARA 
CTERSET (071)?" 

430 GETA$: IFAS$<> "1" ANDAS <> "B" ANDAS OE 
$THEN439 

448 IFAS=ESTHENPOP :GOTO8@ 

458 A3=#B400tCH*KS- C#4QOXK(AS="1"9) 

455 S=VUALCAS$) 

9457? PRINTCHR$(2@8) 5 

460 RETURN 

5Q@Q@ T=1:N$="" 3]i=OINS="" 

918 GETA$: IFAS=CRR$(13JANDT> 1 THENGOTO 
53a 

S1i IFA$=CHR$C27) THENPOP :GOTO82 

512 IFA$=CHR$C127)ANDT> 1 THENPRINTASS; : 
T=T-1 =NS=LEFTS(N$, LENCN$)J—-1) <GOTCS512@ 
515 IFASCCA$IJ>S?7ARASCCA$) <4¢8THENS19 
916 IFT=TITHENS1@ 

517? N$=N$+A$S 

520 T=T+1:PRINTAS$S 

525 GOTOSi¢ 

938 N=VALCNS$) 

54@ PRINT :RETURN 

55@ REPEAT :GETA$S :UNT ILAS="Y"ORAS="N"O 
RAS=CHR$ (27 ) 

560 IFAS$=CHR$C273THENPOP :GOTO8@ 

570 RETURN 

6@@ CLS: INK@:PAPERG:PRINT :PRINT ?PRIN? 
:GOSUB35@ 

602 CLS:FORI=4708@0T047087 :POKEI,@:NEX 
| 

683 PLUT20,5, CHR$(@)+CHR$C18)+"CHARAC 
TER" :PLOT24, 7, CHR$(@2I+CHRSCIOBI+CHS 

604 PLOT2@,6,; CHR$¢(G)+CHRS$(1@3+"CHARAC 
TER” :PLOT24, 8, CHR$(@)+CHRSC1Q)+CH$ 

6@5 PLOT24,13,1@:PLOT24,14,1@:PLOT25, 
13,125:PLO7T25,14,125 

686 PLOT23,13,@:PLOT23, 14,0 

6@7 PLOT18,11,CHRE¢CYItCHRSC1GI+"NEW C 
HARACTER " 

608 PLOT18,12,CHRS(A)+CHRSC1GI+"NEW C 
HARACTER " 

689 IFS=i: THENPLOT24,7,11:PLOT24,8,11 
610 PRINT:PRINT:PRIN1] :PRINT" INPUT NUM 
BERS" :71=3:PRINT 

612 S$=MIDSCSTRS(S), 2) 

613 PLOT19,17,CHR$(G)+CHR$C18)+"CHARA 
CTERSET" :PLOT25, 19, CHRS(GI+CHRS(10)+S$ 
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615 PLOT19, 18, CHR$¢(OI+CHRSC18I+"CHARA 
CITERSET" :PLOT25, 28, CHR$(@)+CHRS(10)+S$ 
62@ FORI=aT0? 

625 PRINT" “SI+13E$35"09 
CHR$C8) 5CHRS(8) SCHRS(E) 5 
63@ GOSUBS@@:IFN>63THENPRINTCHR$(11)3 
*GOTO625 

635 ACIIJ=N:POKE470898+1,N 

64@ PRIN’ :NEXTI 

642 PRINT:PRINT"O0 YOU WANT TO FURTHE 
R CHANGE THIS" 

643 PRINT"CHARACTER BY BUILDING UP ON 
THE" 

844 PRINT"SCREEN CY“N)" 

645 GOSUBS52 

647 IFAS="Y" THENGOSUB1 288 :GO1 0848 

658 CLS:PRINT:PRINT:PRINT:PRINi "DO YO 
U WANT TO STORE THE CHARACTER?" 

655 GOSU355@ 

668 IFA$="Y" THENGOSUB1 380 

6728 CLS:PRINT:PRIN7 :PRINT:PRIN. "DO YO 
LU WISH TO REDEFINE ANOTHER " 

675 PRIN?"CHARACTER BY THIS METHOD?PCY 
7NJ" 

688 GOSUBS550 

690 IFAS="Y" THEN6@ZELSEGOTO8@ 

880 CLS:PRINT :PRINT ?:GOSUB350:CLS :GOSU 
B1@0@’ SCREEN 

810 1=8 

820 FORI=A37CA3+7:ACTI=PEEKCII:ACTI=A 
CTJAND63:POKEAD+T, ACT I 

825 AS=MIDSCSTRSCACTII,2) :IFLENCA$)=1 
THENAS=" Y+AS 

826 PLOT2,7+Tx2,AS:PLOT2;, 8+TX2,AS:T=T 
+1 ENEXT 

830 GOSL31486 

840 r»=6:Y=? 

850 F=SCRNCX+1, YJ :PLOTX,Y, 255 :GETAS 
860 IFA$=LSORA$=R$THENGOSUB 1500 :GOTO08 
38 
872 
38 
880 
890 
9828 
910 
9220 


"5S CHRS$C8) 5 


IFAS=DSORAS=US > HENGOSUB 1686 :G0198 


IFA$=DE$THENGOSUB 1788 :GOTO85@ 
IFA$="" "“THENGOSUB188@ :GOTO85¢ 
ISA$="3" THENGOTO812 

IFAS="2" THENGOSUB 1 95@ :GOTU085@ 
IFAS="1"' THENGOSLIB19@@ :GOTO8Sa 

932 IFAS=ESTHENCLS :GOTO8@ 

94@ IFAS="S"THENCLS :PAPER? : INK@:GOSUB 
13@@:GOTO972a 

95@ IFAS="N"THENGOTOS70 

96@ GOTO8Sa 

972 CLS!PAPER6:INK@:PRINT#PRINTEPRINT 
:PRINT"O0 YOU WISH 10 REDEFINE ANOTHER 


tk 


98@ PRINT"CHARACTER BY THIS METHODCY7 
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NJ)" :GOSUB559 : IFAS="¥" 7HENB@Q 

998 IFAS="Y"7HENSGO 

995 GOTORea 

1@@@ CALL#E6CA:CLS=:PAPER?: INK4 

1018 PRINTCHRS$(4)3:PRINT:°RINT" 
"J" SES3"D CHAR-GEN" 

1015 PRINTCHRS(4) 

1020 I$=CHRS$(255) :11$=I1$+1$+]$+1$1T$+ 
I$4i$+1$+1$s1$4+1$+j[$+]1$+1$ 

(@30 BS=C4R$( 16) :12$=1$+3$1+BS$+BS$1BS$+B 
$+BS4 B$41B$+BS+394BS+BS+1$ 

1@4@ PLOTS, 6,11$:PLOTS, 23, 11$:FORI=7T 
022 :PLUT5S,1, 12$:NEX1 

1058 FORI=4T026:PLOT19,1,23:PLO12@, 1, 
10:PLOT21,1,2:PLO722,1,255:PLO11,1,1@ 

1@6@ PLO123,1,1:PLOT35,1,2:PLOT4,1,3: 
NEX) 

1865 POKE4816@, 21 :POKE48241, 2:POKE49@ 
A1,2 

1@67? iFS=i 7THENPLOT28,8,11:PL0T28,7, 11 

107@ PLOT26,5; "CHARACTER" :PLO7 26,6; "C 
HARACTER" :PLOT26,9, "ASCII CODE" 

,@8@ PLCT26,12, "ASCII CODE" :PLOT3@,7, 
CHR$(2)+CH$ :PLOT32, 8, CHR$(23+CHS 

18@9@ PLOT29,11,STR$(CH)!PLOT29,12,STR 
$C CH) 

1@95 PLOT25,13, "CHARACTERSET" :PLOT25, 
14, "CHARACTERSET" 

1@96 PLOT32, 15,STRSCS) :PLOT3@, 16,STR$ 
(S) 

1108 FOR1=23T038:PLO07T1,17, 255 :EXT 

1105 PLOT29,19, "NEW" :PLOT29, 28, "IEW": 
PLOT 26, 21, "CHARACTER" 

1186 PLOT26, 22, "CHARACTER" 

1118 PLOT29, 23, CHR$(2)+")}" =PLOT29, 24, 
CHRSC2)+")" 

1120 A2=A3+7 :A1S=MIDSCSTR$(AZ),2) :AZ$ 
=MID$CSTR$(AZ),2) 

1138 PLOT@, 5, CHR$(8)+CHR$(O)+A1$4+CHRS 
(2) :PLOT@, 24, CHR$(8)+CHRS$(O}+A2$4CHRSC 
2) 

115@ CALL#E8@4:RETURN 

12@0 GOSUB18@0:T=@:CALLHE6CA 

1210 FORI=7TO22STEP2 :FORN=@T05 

123@ IFACTJAND2*NTHENPLOT16-2XN, 15 "11 
"$PLOTIG-2KN, It+1,"f)" 

1232 AS=MIDS(STR$CACTII,2) :1FLENCAS)= 
1THENAS="_ "+AS 

1235 PLOT2,1,A$:PLOT2,1+1,A$ 

124Q NEXT: T=T+1 :NEXT 

1268 CALLHE8@4 :RETURN 

1308 PAPER6:INK@:CLS 

13@5 PRINT :PRINT:PRINT:PRINT:T=@ 

1318 FORI=A3TCA3+? 

132@ POKEI,ACT) 

133@ PRINT" 
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"$ACT) EPRINT 
134@ T=T+1 :NEXT 

136@ PRINT :PRINTSPC(3)5E$5"F" 3E83"TPR 
ESS SPACE BAR TO CONTINUE “3E$35"U" 
137@ PLOTS, 21,22:FORI=11030:K$=KEYS:] 
FKS="" "ORK$=E$THENI=14@ 

1375 NEXT: IFK$=E$THENPOPGOTO8@ 

1376 IFK$=""THENGOTO139@ 

1377 PLOTS, 21, 28:FORI=11060:K$=KEY$ #1 
FKS=""“ORK$=E$THENI=190 

138@ NEXTI: 1FK$=E$THENPOP :GOTO8@ 

£385 IFK$<>" "THENGQ101372 

1398 RETURN 

14@@ CALLHE6CA:T=2 

1405 FORI=7TO22STEF2 :FORN=OT05 


£41@ IFACTIAND2*NTHENPLOT16-2kN,1,°)% 
"?PLOT16-2*N, I1+1,"; {" +GOTO1420 

1415 PLOT16-2xN, 1,CHR$(163+CHRSC16) =P 
LOT16-2xN, I+1, CHR$C16)+CHRS(16) 
NEXT 27 =7+1 SNEXT 
CALLHE 884 :RETURN 
PLOTX; Y;F ?X=A12XK(AS=L$I-2K(AS=PS$ 


1428 
1430 
15e8 
i 
1510 
1528 
1536 
1548 
160@ 
B) 
1618 
162d 
1638 
1648 


1£\> 16 THENX=6 

IFX<6THENX=16 

PLOTX,Y,;255 

RETURN 

PLOTX, Y,F :Y=Y+2XCAS=U$ )-2KCAS=D$ 


IFY>21THENY=? 

IFY<?THENY=21 
PLOTA; Y;255 
RETURN 

1780 PLOTX; Y,F :X=xX-2:1F ¥<6THENX=16 
1785 PLOTX,; Y,; CHR$C16)+CHR$C16) :PLOTX, 
Y+1, CHR$C16)+CHR$C16) 

1710 G=63-(02*0C16-%I)72)) :T=CY-7IZ2:AC 
TI=ACTIANDG :AS=MIDSCSTRSCACTII,2) 

$715 POKEAD+T,ACTI 

1720 IFLENCASJ=1THENAS=" "+AS 

173@ PLOT2,Y,A$:PLOT2, Y+1,A$ 

1750 PLOTX,Y,255 

176@ RETURN 

1800 PLOTX,Y,"ii"sPLOTX,Y+1, "42" 

182@ G=2*(C16-%I72) :T=CY-27)72:ACTI=AC 
TJORG 
1825 POKEAD+T, ACT) 

1830 X=X+2:1FX> 16THENX=6 

185@ AS=MIDSCSTRSCACTII,2) > IFLENCASIJ= 
1THENAS="_"+AS 

1868 PLOT2;,Y,A$:PLOT2, Y+1,A$ 

1870 RETURN 

1988 T=8 

1905 FORI=7T022:PLOTS,1,12$:PLOT2,1," 
QO" =NEXT 

1907 FORI=@107 :ACIJ=@:POKEAD+I,@:NEXT 


191@ RETURN 

195@ T=@ 

1955 FORI=7TO2Z2:PLOT6, 1 tii ist 
"SPLO7T2,1, "63" =NEXT 

1957 FORI=@197:AC13J=63 :POKEAD+1,A83=2NE 
XT 
196@ 
2802 
2818 
“FE 3P" 
2020 GETAS$ 2 IFAS<>"S"ANJA$ <> "F"ANDAS <> 
ESTHEN2928 

2038 IFAS=E$THENPOP :GO1082@ 

2835 CLS:PRINT:PRINT:PRINT"PUT TAPE I 
N AND WIND TO CORRECT P!ACE" 

204@ PRINT:PRINT:PRINT" PRESS THE SP 
ACE BAR WHEN YOU ARE" 
2842 PRINT" READY 
NG" 

2043 REPEAT :GETA$:UN7 ILAS=" 
20644 IFA$=E$;HENPOP :GUT08@ 
2045 CLS:FORI=13T014:PLOT16,1,CHRSC14 
J+"SAVUING" =NEXT 

2858 RETURN 

2188 GOSUB2908 

2118 IFA$="F"7HEN2130 

2128 CSAVE"CHARACTERSET@",S,A#B400,E# 
3808 :GOT082 

2138 CSAVE"CHARACTERSETO",A#B4IGO, E4388 
88 :GOTO8@ 

2158 GOSLB22@80 

2160 IFA$="F"THEN2184 

2170 CSAVE"CHARACTERSE(1",S;A#B800,E# 
PB8@ :GOTO8@ 

2188 CSAVE"CHARACTERSET1", A#3808,£#BB 
88 >GOT08@ 

2200 GOSUB280¢8 

2210 IFAS="F'"THEN2232 

2228 CSAVE"CHARACTERSETS",S,A#B400,E# 
BB8@ -GOTO8@ 

2230 CSAVE"CHARACTERSETS",A#3400,E#8B 
8@ :GOT082 

3800 CLS:PAPER?? INK@:PRINT =PRINT PRIN 
T"DO YOU REQUSRE INSTRUCTIONSCY/ZNI?" 
3@18 GOSUBSS5S@:1FAS$<> "Y" THENRE TURN 
3815 CLS:E$=CHR$(27) 

303@ PRIN( :PRINi"CHAR-GEN IS A CHARAC 
TER GENERATOR “ 

384@ PRINT"PROGRAM PESIGNEO TO HELP Y 
OU CREATE" 

3045 PRINT" YQUR OWN CHARACTERS EASILY 
3858 PRIN? :PRINT" TT 
TIONS. YOU CAN " 

3860 PRINI "MAKE A CHARACTER BY DIRECT 
INPUT OF" 


RETURN 
CLS :PAPER6:INK@ 
PRINT :PRINT?PRIN?I "SLOW OR FASTCS 


TO STAR] SAVI 


“ORAS=E$ 


OFFERS SEVERAL OP 
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387@ PRIN. "NUMBERS. ALTERNATIVELY YOU 
CAN BUILD" 

3875 PRINT"A CHARACTER UP ON THE SCRE 
EN WHILE THE"; 

38@8@ PRINT'COMPUTER WORKS OUT THE COR 
RECT NUMBERS" ; 

3085 PRINI"FOR YOU." 

30990 PRIN] :PRINT" ONCE YOU HAVE CREAT 
ED SOME CHARACTERS" ; 

3095 PRINT" YOU MAY LIKE TO TRY ARRANG 
ING THEM " 

318@ PRINT" TOGETHER TO MAKE A _ARGER 
PICTURE. THIS" 5 

311@ PRIN| "CAN BE DONE QUITE EASILY U 
SING THIS" 

3115 PRiNT" PROGRAM" . 

3120 PRINT:PRINT" BEFORE YOU CAN Si AR 
T REDEFINING ANY" 


3125 PRINT "CHARACTER YOU MUSi FIRST 3: 
NPUT THE " 
313@ PRINT"CHARACTER YOU WISH 10 REDE 


FINE.THIS IS"35 

3135 PRINT"DONE BY PRESSING THE KEY C 
ORRESPONDING" ; 

314@ PRINT'TO THE REQUIRED CHARACTER. 
REMEMBER 10" 

3145 PRINT"USE SHIFT SOR UPPER CASE C 
HARACTERS. " PRINT 

3146 PRINT" PRESS SPACE BAR 10 CONTI 
NUE" :REPEAT :GETAS?UNTILAS=" “ 

3147 CLS?PRIN- 


315@ PRINI" IF YOU DNECIJE TO ENTER TU 
MBERS " 

3155 PRINT"OIRECTLY THEN YOU WiLL BE 
REQUIRED" 

3:68 PRIN’ "7OQ ENTER EIGHT NUMBERS BET 
WEEN ZERO " 


3165 PRINT"ANO SIX7TY THREE.TREN IF YO 
u WAN, THE " 

31708 PRINi "CHARACTER TO BE REDEFINED 
ACCORDING 70"; 

3175 PRINT" YOUR DATA ANSWER ’Y? 
ASKED IF YOU" ; 

318@ PRINT"WISH TO STORE THE CHARACITE 
R" 

3185 PRINT:PRINT"IF YOU CHOOSE TO RED 
EFINE A CHARACTER" 

319@ PRINT"BY BUILDING IT UP ON THE S 
CREEN YOU" 

3195 PRINI"WILL HAVE TO MOVE THE BLUE 
CURSOR " 

3200 PRINT" AROUND 
—E CURSOR " 

3285 PRIN? "KEYS.USE 
SET A SQUARE" ; 

321@ PRINT"AND THE DELETE KEY TO DELE 


WHEN 


THE SQUARE USING TH 


THE SPACE BAR TO 
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VE ONE." 
3215 PRINI"PRESSING °S? 
UR CHARACTER" 5 
3226 PRINT"AND ’N’ 
WING YOU 10” 

3225 PRINT"START A NEW ONE. THERE ARE 
ALSO THREE" 

323@ PRINT"SPECIAL KEYS LISTED BELOW" 
=PRIN 

3235 PRINi "PRESS 71? 


3240 PRINT"PRESS ? 2? 


WILL STORE YO 


WILL CLEAR IT ALLO 


TO Fill THE GRID 


TC CLEAR THE GRi 


Dp" 
3245 PRINi "PRESS °3? TO DRAW THE ORIG 
INAL " 
325@ PRINT” CHARACIER ON THE 
GRID" 


3260 PRINT :PRIN?" PRESS SPACE BAR T 
C CONTINUE" :REPEAT :GETA$:UNi ILAS=" " 
3265 CLS:PRINT PRINT" ONCE YOU HAVE 1) 
EFINED SOME CHARACTERS" 5 

3270 PRINT" YOU MAY LIKE TO ARRANGE TH 
EM TOGETHER" 

3275 PRINT"TO PRODUCE A COMPOSITE CHA 
RACTER. " 

3288 PRIN) "OPTION 6 ON “HE MEN ALLOW 
S YOU 70 DO" 

3285 PRIN "VHIS. YOU CAN 3UI_LD A PICTU 
RE UP TO A" 


3298 PRINT"MAXIMUM OF 5S CHARS. ACROSS 
BY 6 DOWN" 
3295 PRINT" IN THE TWO BOXES AT iFE T 


OP THE " 
32@@ PRINT"CURRENT CHAR. AND ITS CODE 
WILL BE " 

33@5 PRINi"PRINTED.10O PRIN. 

ACTER MOVE" 

3318 PRIN?i"THE CURSOR 

POSITION IN" 

3315 PRINT" THE SQUARE ANI PRESS THE S 

PACE BAR AND"; 

3320 PRIN?T"THE CHAR. 


“HIS CHAR 


TO THE CORRECi 


WILL BE PRIN VED 


UNDER TRE " 

3325 PRIN. "CURSOR. ” 

3330 PRINi" TO CRANGE TRE CURRENT CHA 
R. USE THE " 


3335 PRINT"KEYS F AND B TO GO FORWARC 
QR BACKWARD" ; 


3345 PRINT"RESPECTIVELY.IF YOU PRESS 
SHIFT WITH " 

335@ PRINT"iHESE KEYS T!EN THE YOU CA 
N GO FORWARD" ; 

3355 PRINT"OR BACKWARDS It JUMPS OF F 
IVE FOR" 

3368 PRIN1"SPEED. " 

338@ PRINT" TQ CLEAR THE SQUARE PRESS 
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L AND TO" 
339@ PRINI "CHANGE CHARACTER SET PRESS 
Q@. C WILL" 

34@@ PRINT"SWITCH THE CURSOR ON/OFF" 
343@ PRINT :PRINT" PRESS SPACE TO 
START" 

34948 REPEAT :GETA$S:UNTILAS="_ " 

345@ RETURN 

4004 FORI=47088704708@+7 :POKEI,@:NEXT 
4018 FORI=470727T947072: 7 :POKEI,63:NEX 
T 

4820 ES=CHRS$(27) :US=CHRS(11) SDS$=CHRSC 
1@) t:LS=CHR$(8) :RS=CHRS(I9) :OES=CHRS$( 127 
) 

4025 AD=46080+125x8 

483@ RETURN 

3@80 ES=CHRS$(27) 

9081 IFCTHENPRINTCHRS(17) ; 

S@@2 IFPEEKC48839)=321HENPRINTCHRS( 28 
5 
5885 
TIPRIN7 "JO YOU WISH 


ty 


9806 PRINT"ALTERNATE CHARACTERS? (S7AJ 
SOQ? GETAS: IFAS <>ESANDAS<> "A" ANCAS<) " 
S" THENS@@? 

5@1@ JFAS=ESTHEN89 

3828 IFAS="S"1 HENAT=8 :A1S=CHRSC1@)+"S 
TANDARD" :BS=CHR$C255) 

5025 IFAS="A" THENAT=9 :ATS=CHRS(C10)+"A 
LIERNATE" :BS=CHR$(223) 

5830 CLS*POKE4848@, 21 :PLO114,1,AT$?PL 
0114,2,Ai$:PLOT6,6, "CHARACTER" 

9633 FOR.=11029:PRINICHRSC9) 5 SiNEXT 
9036 FORI=17016 :PRINTCHRS$( 10) 5 NEXT 
96480 PLOT23,6,"ASCII CODE" :CO=32:MA=1 
26 

9842 FORI=3T017:PLOTI;4;255:PLO1Ti,;9,2 
99 :PLOT17+1,4,255:PLO7T17+1,9, 255 :NEX] 
9844 FORI=STO8:PLOT3;,1,255:PLO7T17,1,2 
99 ?PLOT 20,1, 255:PLOT34, 1,255 :NEXT 

9045 PLO19,8,AT =7L0711,8,8 

9858 PLOT1@,8,CHRSCCOJ:PLO127,8,MIDSC 
STRSCCO), 2) 


PAPER6 : INK@:CLS:PRIN? ?:PRINT !PRIN 
10 USE STANDARD OR 


5@55 PLOT27, 15, B$+8$+BS$+BS41BS$+B$+Bs 
5@56 PLOT27,22,B$+BS$+B$1B$+BS+BS+B$ 
5@6@ FORI=161021:PLOT27,1,8$+" "4 
BS =NEXT 

S5@65 FORi=i127026:PLO122, 1,CHR$C2.24CH 
R$C16)+CHRSC5IJ+CHRSCAT) 

5867 PLOT38,1,21:NEX7 

907@ FORI=i157T02S5STEP2:PLOi1,1,CHRS$(A@) 
+"32 32 32 32 32 "“iNEX; 

S@72 POKE49184, 21 :POKE49116,21 :POKE49 
ABD, 21 

5875 FORI-48523104984@STEP4@:POKEI, 21 
*POKEI+1, 22 :)IEXT 

908@ PLOT6, 13, CHR$(@)+"ASCII-CODES" 
S@95 X=1:Y=1 :US=CHR$C 11) :DS$=CHRS(1Q): 
L$=CHR$(8) :R$=CHRS$(I9) 

S@97 PRIN. CHR$(17) ;CHRS(2@) 5 :C=-1 
51@@ GETAS$ 

5118 IFA$=L$ANDX> 1 THENPRINTAS 3 ¢X=xX-] 
59128 1FAS=R$ANOX<STHENPRINTAS 3 ?X=X4 1 
5130 |FAS=D$ANDY<67HENPRINTAS 5 SY=Y4i 
5314@ IFAS=LI$ANIY> 1THENPRINTAS 3 SY=Y-1 
9158 1FA$="" "|HENPLOT27+xX, 15+, CHRSCC 
0) :GOSLUBS68a 

516@ CO=CO+(CAS="b")-CAS="£"J-5SKCAS=H"F 
"J+SKCAS="B") 2 IFCO>MATHENCO=32 

3178 IFCO<32THENCO=MA 

3188 PLOT1@,8,CPR$(CO):PLOT27,8,MNiIFsc 
STR$CCOJ,;2)+" " 

519@ IFAS=ESTHENPRINTCHPR$( 20) ; :GOTO8B 
3208 IFA$="q"7HENGOTOS@0a 

92180 IFA$="c"THENPRINTCHRSC 17) 3 :C=C(C= 
8) 
5215 


IFAS="L"THENFORI=161021 :PLOT28, I 
’ "INEXT :GOSUBS508 


5228 GO105180 

950@ FORI=15TO25STEP2:°L072,1,"32 22 
32 32 32 “:NEXT 

5518 RETURN 

5608 P$=NMINS(STPS$(CO), 2) :¥1=Xk4-2:Y1= 

YK2+13 

5610 IFLENCP$)<3THENPS$=P$+" 

@ 

5628 PLOTX1,Y1,P$:RETURN 

6@8@@ GETA$:END 


"3G010561 
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THE THREE TOWERS 


1 REM 
THE THREE TOWERS 

2 REM 

3 REM 

1@ POKE 618, 2:TEXT 

28 GOSUB 1000 

4Q HIRES :PAPER?:INK@ 

5@ DIMAC3, 7) :M=@ 

6@ FORI=1T07:AC1,1)=~1:NEXT 

7@ FORI=1T03 

8@ CURSET 1*68,99,1:CIRCLE2, 1 

9@ CURSET 1X68-3,170,@:CHAR I+48,0;1 

18 NEXT 

11@ CURSET 62,99, 1 

12@ FOR I=? TO 1 STEP-1 . 

13@ CIRCLE Ix4+1,1:MUSIC 1,3,1,@:PLAY 

1,8,1, 1000 

14 NEXT 

2@@ CLS 

21@ PRINT"WHICH TOWER DO YOU WISH TO 
MOVE A RING . FROM ?"; 

22@ GET $$:S=VAL(S$) 

238 IFS=@0RS>3 THENPRINT :PRINTCHRS(14 
Q)+" INPUT ERROR" 3:2AP :WAIT2@@: 
GOTO28@ 

240 FORI=1TO7:IF ACS,1) THEN 272 

250 NEXT 

26@ PRINT:PRINT" THERE ARE NO RINGS O 
N TOWER "3S3:WAIT2@@:GOTO 2@@ 

27@ CLS 

28@ PRINT"ON WHICH TOWER DO YOU WISH 
TO PLACE THIS RING ?"5 

290 GET: 0%:0=VAL(O$) 

3@Q@ IFO=@0RO>3 THENPRINT :PRINTCHRS$( 14 
Q)+" INPUT ERROR" ;?2AP :WAIT2@Q: 
GOT027@ 

31@ IF S<>O0 THEN 35 

320 PRINT:PRINT" ARE YOU SURE (Y/N) 
Be ss 

33Q GETA$:IF AS="N" THEN 20@ 

340 IF A$<>"Y" THEN 330 

350 FORJ=1TOI-1:IF ACO,J) THEN 360 

355 NEXT:GOTO 372 

36 PRINT :PRINTCHRS(14@)+" 

MOUE "3 :2AP :WAIT2@@:GOTO272 

37@ CLS 

38 CURSET $x6Q,99,1:CIRCLE 1*4+1,8 

39Q CURSET 0X6@,99,1:CIRCLE IX4+1,1 

40@ ACS, 1)=@:ACO, 1)=-1:M=M+1 

405 F=FREC"") 

41@ FOR I=1 TO ? 

42@ IF AC3,1) THEN NEXT 

430 IF 1<8 THEN 220 

44@ CLS:PRINT :PRINT" 

ATIONS" 
45Q WAIT3Q@ TEXT :PRINT:PRINT :PRINT 


ILLEGAL 


CONGRAT UI 
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46@ PRINT" 
IN " 

4720 PRINT:PRINT" "sM3" MOVES." 
48@ WAIT 18@:PRINT:PRINT:PRINT :PRINT" 
WOULD YOU LIKE ANOTHER GO CY“N) ?"3 
490 GET AS:IF AS="Y" THEN RUN 

5@@ IF AS<>"N" THEN 498 

518 CLS:POKE 618,3:PLOT 16,13," BYE 8 
"IWAIT 108@:END 

1@8@ REM INSTRUCTIONS 

1885 PING 

181@ CLS:PRINT:PRINT CHR$C138)" 

THE THREE TOWERS" 
182@ PRINT CHR$C138)" 
TOWERS" 

1@3@ PRINT:PRINT" THIS IS A PUZ@LE WH 
ERE YOU HAVE THREE " 

1@4@ PRINT" TOWERS AND SEVEN RINGS. " 
PRINT :PRINT 
185@ PRINT" 
S TO" =PRINT 
1868 PRINT" TRANSFER ALL THE RINGS FR 
OM THE FIRST "“ 

1@7@ PRINT" TOWER TO THE THIRD TOWER.” 
"?PRINT ?:PRINT 

1@8@ PRINT" THE CATCH IS,;- YOU CANNO 
T PUT A "PRINT. 

1@9@ PRINT"LARGE RING ON 
LLER ONE 8" 

11@@ PRINT :PRINT:PRINTCHR$C14Q)" 

HIT ANY KEY TO START ...'"5#GETAS:PI 

NG =RETURN 


YOU COMPLETED THE PUZ2LE 


THE THREE 


THE OBJECT OF THE GAME 1 


TOP OF A SMA 


When the Disc Operating System (DOS) for the Oric 
Microdisc drive was written, a number of 
undocumented commands were included. We've been 
exploring these commands 

On the three inch microdisc supplied with the Onc 
Microdisc unit, you get more than just an operating 
system. You also get three alternate character sets, a 
simple telephone directory and a character redesigner. 
These features aren't documented in the Microdisc 
manual. 

You'll first become aware of them if you run the 
demonstration program. The page of text describing the 
disc system changes through the four character sets in 
sequence. 

The three alternate character sets are accessed by the 
commands ISQUARE.CHS, !SLANT.CHS and !BOLD.CHS. 
We've printed each of the character sets here. You can 
use them within any program, and they will stay on 
screen until the computer is reset, or STD.CHS restores 
the standard character set. 

To redesign your own characters, use the short utility 
program on the DOS disc. It is accessed by |DESIGN. At 
the base of the screen, a character set appears. ASCII 
codes set the character to be redesigned, and it is 
shown, enlarged, at the centre of the screen. + and — 
keys increase or decrease the ASCII code. Use cursor 
keys and the space bar to toggle on/off pixels, until the 
desired character is shown. ESC gets you out of the 
utility, with the option to save a redefined character set 
on the disc. 

'TELE loads the BASIC telephone directory program 
and its data. It will hold up to 100 entries, though you 
could amend the program listing to give more space. 

A menu gives the options of outputting the file, 
searching for a number of altering entries. The numbers 
already in the file include those of Superman and Sooty! 

A handy, undocumented command is !OLD. It is a one 
byte command that will restore any program just 
NEWed. 

'TYPE is yet another file on the DOS disc not covered 
in the manual. Entering the !TYPE will give a prompt for 
a file name. That file will then be printed out. Ifit isa 
command file, you'll get gibberish on the screen, but a 
file like TELE.DAT, the data for the directory, would be 
listed on the screen. 

Obviously, it would be handy to have a printer directly 
accessed from the DOS. There is a command to do that, 
though it is undocumented. !PRINTER ON activates the 
printer port, so that any files listed by !TYPE or !DIR 
would be output to the printer. 

IPRINTER ON acts until a Ready signal is output, and 
can be used in a program. !PRINTER OFF switches a 
printer off. 

One of the most versatile commands in the DOS is 


1"#E%8. 'C OK+, — .£B123456789: ; <= >? PABCDEFGH 

TJKLMNOPORSTUUWXY ZL] T£@abcdef chi jkl mnop 

arstuvuxuzt | - 

SYS E0R CRE — . GI2SEIG7ES: ;< => POABLCOEF GH 
TAL ANGPG@RS TUUNN YE té@abcdef gh i sk imnope 
ar stuvurxyzt ft 


DOSCOVERY 


HELP. It is written in such a way as to enable one line of 
BASIC to access a sequence of BASIC routines. In effect, 
you can virtually define a command to initiate a series of 
commands, as languages like Forth permit. 

LISTing the HELP routine shows what to do. 
Unamended, !HELP gives a screen display of various 
HELP files that can be accessed. You can enter the 
number ofa file, or its name. Entering a number of 
names or numbers, separated by a space, accesses 
different files in turn. Entering a letter such as D will 
access all files starting with D. 

The HELP program reads the entered file description 
and loads the relevant file from the DOS disc. In doing 
so, it calls a subroutine that simply returns the program 
to the file loading routine. It seems a very inefficient way 
of doing things. 

Inefficient it may be, but it also enables the HELP 
program to be considerably expanded. Basically, if you 
use the branch before the file loading routine, you can 
enter any set of routines you want by simply entering the 
right file name. 

The difference between !HELP and !LOAD"HELP" 
should be pointed out. The latter command just '|LOADs 
what is in the quotation marks. If such a file doesn't exist, 
error messages will be generated. 

When !HELP is entered, the whole line after ! is 
scanned. Any BASIC commands found, such as the FRE 
in FRED, are ignored, and the remaining information 
used to determine which, if any, HELP file is to be 
loaded. Spaces indicate which groups of characters are 
to be treated separately. 

Customising the HELP routine is thus relatively 
straightforward. You may want to change the file names. 
You may want to arrange that certain BASIC commands 
be acted on, rather than ignored. You will want to write 
routines called by the !HELP command. The BASIC 
structure is there; you do with it what you want 


"Hee C+, — -~H12S4S6 189: 5 <=> 2PMECOEFCH 
7 IKLPINOPORS TUULIY 2! CSI TElabcoef sh ijk lmnop 
arstuvusue {11 
i“HE7R"C Kt. - - 48123456789: 5 (= >A@RBCDEFCH 
LJKLFINOPORS TUUNX2 0511 £Oabcdef ohi jkLanop 
qrstuvexyztl} 
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lhe Onic interview 


PAUL 
KAUFMAN 


As Managing Director of Tansoft, a software 
house specializing in software for the Oric com- 
puters, Paul Kaufman is an important figure in 
the Oric world. Kester Cranswick interviewed 
him recently. 


Tansoft Limited and Oric Products International seem to 
be very closely linked. How has this happened? 


The company was originally formed to be the software 
arm of Tangerine Computer Systems Limited. When that 
company ceased trading, and the Oric-] was launched 
by the new Oric Products company, Tansoft rapidly 
became involved on the software side of things. 


How did you get involved with computing, and Tansoft? 


I left school with a wish to be in either the computer or 
the music business. | found a job as a trainee computer 
operator with Exploration Computing in London, before 
moving to Shell Exploration. In 1981 I joined Tangerine in 
a technical support role, helping customers and 
programmers. We launched the Tansoft Gazette to 
further this end. From there I worked my way up to 
Managing Director. In a sense, I'm still engaged in 
customer support though. 


Why is Tansoft devoted exclusively to Oric Software? 


Our close links with Oric Products and our knowledge 
of the machine made it an easy path to follow. We also 
saw a gap in the market, which were able to exploit 
before other companies. However, we are now thinking 
of broadening out to market Spectrum and Commodore 
64 software, as those sections of the market are so 
buoyant. 
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How good do you think Oric software is, compared to 
that for other leading computers? 


It must be born in mind that the Spectrum, Acorn and 
other computers have been around for considerably 
longer than the Oric. However, we are catching up fast, 
especially as more and more programmers get to grips 
with the Oric. Many of the wild rumours about its 
difficulty to program have been dispelled by some fine 
games. 


You must see a great deal of software submitted for 
possible marketing. How good is it? 


Having a best seller land on your desk in the morning 
is a rare event. Probably one in fifty programs submitted 
is good enough to sell. 


Why is a program rejected? 

A common reason is that the idea of the program is not 
original, for Oric software at any rate. We aren't really 
interested in versions of Pacman, Hangman or Lunar 
Lander, no matter how good they are. 

I'll also reject programs if the quality of the 
programming isn't good enough. If the program is an 
arcade game, it must use Machine Code, or it won't be 
fast enough. Presentation and user friendliness are also 
vital. 


If a program is accepted, what happens next? 


It will probably need to be sent back and forth 
between us and the programmer three or four times to 
get it to a marketable state. We'll suggest improvements 
and give help where possible. Examples of programs 
that have gone this way are Ultima Zone, Defence Force 
and the Linkword Masterclass series. 


Where do you get ideas for programs from, if they aren't 
sent in to you? 


Increasingly, we are generating ideas in house and 
farming them out to any of half a dozen freelance 
programmers. We don't employ any programmers full 
time. An example of this approach is Rat Splat. A game 
I'd seen at a funfair started that one off. You had to hit 
cloth rats with a hammer as they were dropped down a 
drainpipe. We adapted the idea to a sewer system, with 
rats after pieces of cheese and a man after the rats. 


Are old ideas still valid, or is it getting harder to think up 
new game ideas? 


Old ideas still work, but the standard needed must be 
much higher. Original ideas are still easy to come by 
though. 


If someone has a program that they think would be 
suitable for Tansoft, what should they do? 


The best thing is to write a letter detailing the 
program or concept. We will then write back, suggesting 
improvements, giving encouragement and so on, or turn 
down the idea. However, we are always on the lookout 
for good software and welcome suggestions. 


What can a programmer expect to earn from a good 
program? 


There are two systems of payment. If the author opts 


for a lump sum, they can expect from £500 to £5000 for a 
quality game. If there is a royalty agreement, there is 
more risk, but a best seller could earn the programmer 
up to £40000 or so. However, many programmers expect 
these sort of sums up front, and few companies are 
prepared to invest tens of thousands of pounds in a game 
before it is marketed. 


What is the life of a software package? 


Arcade games have a life of around six months. 
Business and educational titles may not sell in the same 
volume, but they keep selling steadily. 


How important is the packaging of a program? 


It is becoming increasingly important. A program must 
stand out on a dealer's shelf, and grab the eye witha 
bright, colourful cover. But, using packaging to dress up 
a poor product doesn't work in the long term. Customers 
will react in a negative way, and the long term affect is 
harmful. 


Oric software is often criticised for being too restricted 
in availability. How do you answer that? 


There is quite a lot of Oric software out there, but you 
may have to look for it. Oric's own software scheme is 
bound to help this, and I'm glad to see that they are at 
last taking the software market seriously. 


The launch of the disc drive has opened up new 
software possibilities. Will you take advantage of them? 


We are taking the disc system very seriously and are 
already working on a number of projects. We have also 
helped produce the two promotional discs being offered 
with the Microdisc unit. 


You have a toehold in the business market. Do you see 
that area developing? 


Our business software has proved successful and we 
intend to concentrate on it more heavily. We are already 
adapting some packages to disc, with improvements. 
The launch of the disc drive is therefore a major 
development. 


Educational software for the Oric is in short supply. Do 
you have any plans in this direction? 


Again, it is an area we are very interested in, and we 
hope to have a number of early learning programs 
available before Christmas. Most of the material sent to 
us is quite boring. We look for good use of graphics, 
sound, anything to make the learning process fun and 
stimulating. 


What sort of trends do you see emerging in the software 
industry? 


Piracy has been much talked about. We condemn it, of 
course, but recognize that the problem is hard to beat. 
The only solution is to incorporate such safeguards as are 
economically viable, and to make the product so good, 
the customer won't want to buy a pirate program. 

Mail order software selling has fallen off dramatically, 
but the growth in sales through non-specialist outlets 1s 
not necessarily a good thing. Often the store buyers are 
sold on packaging, and may not recognize a good 
program when they see one. The spurious software 


charts don't help either, as they bear little relation to 
what is really selling. 

Cost cutting is another trend that may cause problems. 
Smaller software houses don't have the muscle to match 
competitive pricing by the larger companies getting 
involved in the market. A price war will hurt the industry 
very badly. 


You have ventured into the publishing field, and are also 
launching the Oric Club. How do these endeavours fit in 
with software activities? 


With both the magazine and the club, we are 
providing a service to the customer that is not provided 
elsewhere. With the software industry being as turbulent 
as it is, it is prudent to have a number of strings to one's 
bow too. 


a 
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What computers do you own? 


From my Tangerine days, I have a Microtan 65 rack 
system, with discs. I also have a number of Onrics, 
including a handmade Oric-1. I helped write the sound 
software for the Oric-1, thus combining musical and 
computer interests. 

I also have a Sinclair ZX81, a Spectrum, a Commodore 
64 and a Jupiter Ace. 


You are a keen fan of the Forth Language. Why does it 
appeal to you? 


It is a superb language for the creation of applications 
programs, as it runs faster and virtually compiles itself. It 
is a little harder to learn than BASIC, so not really a 
language for beginners. 


How do you get away from computers? 


I play guitar, as a hobby, and am a self-confessed HiFi 
maniac. I also try and follow the arts. I believe that the 
best programs are invented by creative individuals, 
rather than logical thinkers, and so | try to keep my 
creative faculties as fresh as possible. 


Do you have any further ambitions in the computer 
world? 


I'd like to develop Onc software to equal or better 
that being produced for the Spectrum and Commodore. 
The machine has the capability — its just learning the 


programming techniques. 
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DISASTER 
ORIC SPEAK AREA 


Onic Owner, Feb/March, 
contained an RS232C printer 
interface project. Some of the 
diagrams need altering, 
according to the author. 


Fig 1. Add Pin 20|DTR' Data 
terminal ready|O/P 


Fig 2. ‘PARITY BIT’ should be 
in the box marked with an 
asterix, * 


Fig 4. The capacitor 
connected to O/P of IClb (Pin 
4) should be 100pf. ACK pulse 
should have a 10ms width. 

1C4a and its circuit can be 
omitted, like this... . 


To IClb 
Pind 


itn . 2k7 Pin4 RTS’ 
3 +54 ~ wae 0 OF 
t+} 4 oar, 
Y in914 
7 = 4kZ. 


You might do well to look deeper -2ve—{_ 


The cartoon and clue indicate a BASIC command for the Oric computers. Hold the page upto | a cee ae 
a mirror to see the answer Half of IC4 is used, so a 741 


PREC single op amp may be used 
instead. 


Fig. §. BASIC Machine Code Loader Issue 6 


20000 INPUT “START ADDRESS IN HEX"; N$ 

20010 IF LEFT$(N$) = “#" THEN N$ = ‘#" + N§$ 

20020 N=VAL(N$) 

20030 CLS:?:2" LOCATION CONTENTS NEW CONTENTS" 
20035 DOKE#26D, # BBF8:POKE623,24 

20037 PRINT:PRINT 

20040 REPEAT 

20050 PRINT HEX$(N)" “HEX$(PEEK(N))" 

20060 INPUT A$ 

20065 IFA$="EEE”"THEN20120 

20070 A$="*"+ A$: A= VAL(A$) 

20090 IFA=255 THEN PRINT” ONE BYTE AT A TIME":GOTO20080 
20100 POKEN,A 

20110 N=N+1 

20120 UNTILA$="EEE” OR N #B3FE 

20130 DOKE#26D, #BB80:POKE 623,27 


LOADING PROBLEMS? 
You need Easi-Load 


Enables you to load tapes with a faint signal or with 
high baud rates. 


——— 
The most complete, compulsive and entertaining 
football manage ret ame ever! 


S693 SOWIY NeP/WNSeds 18¥/S6'83 VINNEO 


*4 divisions “FA Cup “European Cup ‘European Cup- | 
Winners’ Cup ‘Replays *Promotion/Relegation ings 
“Transfers “Suspensions ‘injuries ‘Substitutes “Name ee 
feam ‘Team selection “Name players *Choose/change team formation 
“Weekly league tables ‘Fixtures/Results table “Reserve squad “Spy on other 
Clubs *Minute-by-minute goal facts 
| za Check with your retailer, clip the coupon or phone your Access 
(2 number. All orders posted within 24 hours. 
PEAKSOFT, 48 QUEEN STREET, BALDERTON, NEWARK, NOTTS. Tel: 0636 705230 
Rush me The Boss for my CBM64/48K Spectrum/48K Atmos. | enclose a cheque 
or P.O. 


Simple connection between tape — recorder and 
computer. 


Only £11.00 incl. P + P. 


Send cheque or P.O. to: Rainbow Electronics, 
Glebe House, South Leigh, Witney, Oxfordshire, 
OX8 6XJ. Tel: (0993) 5432. 
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T tally devyted to you! 


Oric Owner is the official magazine devoted to the Oric 1 and Atmos home computers. 
It's crammed full of in-depth information, advance news on the latest add-ons, superb programs and 


interviews with the engineers who designed it. [— az 
The first issue is absolutely free when you buy your | ORIC OWNER SUBSCRIPTION FORM 


Oric, so why not keep ahead of the latest developments Please send me the next ¢ issues | 


and subscribe to further issues. A years subscription ll enclose a cheque for (cheques payable to Tansoft Ltd) | 
of 6 issues is now only £7.50 (overseas p.o.a) So post | Name | 


the coupon today. ideas 
Can you imagine life without it? 


Postcode 


Back issues are available for £1.20 each. If you missed your first 
| free issue contact your dealer or Oric Products International who will 
supply you with one 
| = Se roe” EB Tansoft Ltd, Units 1 &2 |: 
| Cambridge Techno Park Newmarket Road, Cambridge CB5 8PB| = 


et a Seat dine 


TOP QUALITY HARDWARE FROM MCP FOR 
THE ORIC 1 


GAME CONSOLE - Speech synthesiser/joystick 
interface (Atari compatible) ORIC approved 


PROGRAMMABLE JOYSTICK INTERFACE 


A/D CONVERTER - 8 Channel analogue to 
digital, 1-channel digital to analogue, 8 latched 
output channels. [Due late-1984] 


CLOCK/CALENDAR [Due late-1984] 


RS232-C INTERFACE - Software programmable 
RS232-C SWITCH - Allows switching between 
two peripherals 


All hardware, except RS232-C switch is modular and will 
plug into expansion port. Fully compatible with Oric-1 
peripherals. 


ALL PRICES INCLUDE VAT P+P. 


WE ARE PROUD OF OUR PROGRAMS! 


Mellowsoft present their range of Oric educational 
software, full of new ideas, colour and sound. 


SAMPLE DEMO TAPE 


Only 50p (free to dealers) 
refundable against order. 


SCREEN PICTURES 


We use real photos on 
our covers. 


COMPATIBLE 


with Oric-1 (48K) 
and Atmos (48K) 


GREAT VALUE 


Only £3.95 per tape. 
(Inclusive) 


Can You Spell? — For ages 4-6. Large colour 
pictures shown of words to spell. 
— A3-D version of the old 
favourite, with words for all ages. 
— Ages 4-8 approx. Counting 
objects, and simple sums. 

— Improve your typing, and see 
how fast your reactions are! 

— For any age. Graded test of your 
knowledge of tables. 

— A family program based on the 
well-known game of snap. 

— Ages 4 and over. Music and 
picture of favourite nursery 
rhymes. 


MEL Le Sort 


23 Dalford Court, Hollinswood, Telford, Shropshire 
Dealer Enquiries welcome. Access/Visa welcome 


Hangman 


Play Maths 


Catch-a-key 


Tables test 
Picture Snap 


Spell-a-rhyme 
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The Ultimate Concept in Role-Playing Adventures 
* Graphical & Text Games 
* Customised Characters can be used again & again 
* Game-Save facilities 
* Battle-Magic * Wandering Monsters 
* Hidden Treasures 


The Runelord Masterpack (Character Generation Module 
plus sample game) is now available for the ORIC-1 
Each game can be played on its own or built into a massive 
10 part quest! - new modules will be released over the next 
few months. Each game becomes increasingly more complex 
and will build into not just a game but a way of life! 


RUNELORD Masterpack £7.50 incl. 


MODULAR CONCEPT 
PERIPHERALS 
FREEPOST 
SWANSEA SA8 42Z 


DUCKWORTH 
HOME COMPUTING 


All books written by Peter Gerrard, former editor of Commodore 
Computing International, author of two top-selling adventure 
games for the Commodore 64, or by Kevin Bergin. Both are regular 
contributors to Personal Computer News, Which Micro? and 
Software Review and Popular Computing Weekly. 


EXPLORING ADVENTURES ON THE ORIC 48K 
by Peter Gerrard 
This is a complete look at the fabulous world of Adventure Games 
for the Oric Computer. Starting with an introduction to adventures, 
and their early history, it takes you gently through the basic 
programming necessary on the Oric before you can start writing 
your own games. 
Inputting information, room mapping, movement, vocabulary — 
everything required to write an adventure game is explored in 
detail. There follow a number of adventure scenarios, just to get 
you started, and finally three complete listings written specially for 
the Oric, which will send you off into wonderful worlds where 
almost anything can happen. 
The three games listed in this book are available on one cassette. 
£6.95 


Other titles in the series include Sprites & Sound on the 64, 12 

Simple Electronic Projects for the VIC, Will You Still Love Me 

When I'm 64, Advanced Basic & Machine Code Programming on 

the VIC, Advanced Basic & Machine Code Programming on the 

64, as well as Pocket Handbooks for the VIC, 64, Dragon, Spectrum 
and BBC Model B. 

Write in for a descriptive leaflet (with details of cassettes). 


DUCKWORTH 
The Old Piano Factory, 43 Gloucester Crescent, London NW1 7DY 
Tel: 01-485 3484 


CROSSAID 


Tracing the path of a program is not always easy, 
especially when a number of branches are involved. 
This useful program from Lars Hansen from Sweden will 
make that task easier. 

What it does is to print out (on screen) any jumps from 
GOTO, GOSUB, THEN, ELSE, ON. ..GOTO commands. 
The number of the line in which the command occurs is 
printed out, and the number of the line branched to. You 
can get all variables printed out too, and find out how 
many bytes of memory your program occupies. 

The END in line 59999 prevents any existing programs 
running on to execute Crossaid. To run Crossaid, enter 
RUN 60000. When the lines are listed, pressing any key 
will pass on to the variable listing. CTRL C will stop the 
program, and RUN 61000 will execute just the variable 
listing section. 

To test Crossaid on itself, remove the —1043’ in lines 
60040 and 61030 

Crossaid works by inspecting the RAM from 1280 to 
the last byte, given by DEEK(156). Line 60030 checks if a 
byte indicates a command that passes control to another 
line. 60160 reads the line number in which the command 
occurs. The program then reads the number of the line 
jumped to and the line numbers are printed out. 

61160 tests to see if a variable has been listed already, 
while 61040 ensures that everything after a REM 
statement is ignored. 

That's Crossaid, a program that's bound to be useful to 
the programmer, 


99939 END 
60880 CLS:PRINT"CROSSAID" :PRINT :PRINT 


"LINE REF. 
6@01@ A=1285 
68820 B=PEEKCA) 

60038 IFB=1510RB=1550RB=2@@0RB=2@1 THE 
N68058 

60048 A=At+1 -IFAXDEEKC156) 
7BELSE68828 

602580 GOSUB6@1128 


IN" =PRINT 


THEN6@1 


Onc QUES. 


———Eo 


68860 A=A+1 =C=PEEKCA) 

60078 IFC>47ANDC <S80RC=32THENPRINTCHR 
$(CJ) 5 =GOTO6GB6G 

68088 IFC=44THENPRINTSPCC1Q-POSC1J3IL: 
GOTO6ea86a 

68898 IFPEEKCA-1)>47ANDPEEKCA-1)<S80R 
PEEK CA-1)=32THEN6@1@GELSE609820 

60108 PRINTSPCC18-POSC13IJL :GOTO68022 
60118 D=A 

68128 D=D-1 

60138 IFPEEK(D) <>@THEN6@1 20 

6@14@ IFPEEKC(O-4)=@THEND=D-4 

6@15@ IFPEEKCO-3)=@THEND=D-3 

60168 L=PEEKCD+3) :<RETURN 

60178 PRINT:PRINT"PRESS KEY FOR VARIA 
BLES" 

6018@ GET2$ 

610@@ PRINT :PRINT"VARIABLES" :PRINT 
61810 A=1280:DIMA$(28),BS(99) :R=8 
61028 A=At+1 :N=O:2%=G:C=PEEKCA) 

61830 IFA>DEEKC156) THEN6 1220 
6184@ IFC=1570RC=39THEN61@5@ELSE6 1060 
61858 A=At+1 : IFPEEKCAJ=201 THEN6102@ELS 
£61070 

61860 IFC<>153THEN61988@ 

6187@ A=A+1 :IFPEEKCAI=281THEN619820ELS 
E6187 

6188@ IFC=19@0RC=146THEN61@9@ELSE6110 
Q 

6189@ A=A+1 :IFPEEKCAJ=@ORPEEKCAJ=S580R 
PEEK CAJ=39THEN6111@0ELSE6109@ 

61108 IFC<>212THEN610620 

61118 B=A 

6112@ B=B-1 =:C=PEEK(B) 

61138 IFC<360RC>920RC=S80RC=SSTHEN61 1 
68 

61148 ASCNI=CHRSCC) 

6115@ AS=A$CNI+A$=N=N+1 ?>GOTO61120 
6116@ FORP=@TO93 

61170 IFAS=B$CPJTHENZ=1 

6118@ NEXT 

6119@ IF2%=1 THENZ=@ :A$="" :GOT06102@ 
61208 PRINTA$ -BSCRI=A$FAS=""FR=Rt] 
61210 GOT061820 

61228 PRINT=:PRINT"SI2E "5A-128@5;" BYT 
ES" :END 
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07 QUE: 


MARS 


You don't need to be Patrick Moore to know what Mars 
looks like. Here, your Oric has a crack at rendering the 
red planet on the HIRES screen. The program is by ten 
year old Richard Kehoe of Dublin. 

It is very simple and quite effective. With INK set to 
red, concentric circles are drawn to make the planet. 
Then smaller circles are drawn to show the starry 
background. Finally, MARS is charted along the bottom 
of the screen. That's all there is to it. 


1 HIRES 

2 PRINTCHRS$C 17) 

S INK1 :PAPER@ 

1@ A=] 

15 CURSET12@, 10@,1 

2@ CIRCLEA; 1 

38 A=A+1 

40 IFA=7Q@THEN6G 

58 GOTO2¢8 

6@ CURSET19@,18@,1:CIRCLE2, 1 
7@ CURSET12@,12,1:CIRCLE3,1:CIRCLES; 1 
80 CURSET 2@,98,1:CIRCLE2; 1 


9@ CURSET11@,185,1:CIRCLE2, 1 
CURSET22d,11@,1:CIRCLE2, 1 
CURSET2@@, 120, 1:CIRCLE2, 1 
CURSET 6@,16@,1:CIRCLE2, 1 


CURSET 47, 47,1:CIRCLE2,1:CIRCLE3 
CIRCLE4,1:CIRCLES, 1 

WAIT1@:PING 
CURSET12@, 190, 1 :CHAR??,@, 1 
CURSET13@, 1930, 1 =CHAR6S, @; 1 
CURSET14@, 19@, 1 :CHAR82,@,; 1 
CURSET15@, 19@, 1 :CHAR83, @, 1 


REMINDER 


How often have you loaded programs that you didn't 
know the name of? This short routine, for the Oric-1, will 
help you out of that spot. 

What it does is to display the name of any loaded 
program when CALLed. To use it, enter and RUN the 
routine. Then load the unknown program with CLOAD™ 
Clear the screen and CALL #400. The name of the 
program will be displayed. Handy, eh? It's the work of 
Douglas Craig of Glasgow. 
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PATTERN 


This is a pattern that seems to have a life of its own. 

When RUN, up comes the HIRES screen and an 
interlaced pattern of lines is rapidly drawn, originating at 
five points. That takes you up to line 75. 

From then on, circles take over. They are drawn 
concentrically, starting from the centre and the middle of 
the field. The way they interrelate gives a fascinating 
display that lasts for about a minute. It is all done by just 
six lines too. Try RUN 90 to see what happens to the 
circles away from their background. It is a very neat 
little pattern. 


1 REM xkxk PATTERN Xxx 

3S HIRES 

20 FORI=@TOPI“2STEP. @5:CURSET@, 199, 1 
3@ X=COSCIJX170:Y=SINCIJK170 

4@ DRAWX,-Y, 1 :CURSET239, 199, 1 :DRAW-x, 
-Y,1 

45 X=XKX.6:7=YX.6 

5@ CURSET119,@,1:DRAWX,Y, 1 =CURSET119, 
8,1 :DRAW-xX,Y; 1 

SS X=Xk.95 = Y=Y*. 95 

6@ CURSET@, 99, 1 :DRAWX, Y, 1 :CURSET@, 99, 
1 :DRAWX,-Y, 1 

7@ CURSET239, 99, 1 :DRAW-X, Y, 1 ?CURSET23 
3,99, 1:DRAW-X,-Y,1 

23 NEXT 

9@ CURSET119,99,1 

18@ FORI=1TO?@STEP4 

11@ CIRCLE1,2:NEXT 
FORN=4TOISTEP-1 
FORI=1TO8@STEPN 
CIRCLEI,@:CIRCLE81-I,1:NEXTI,N 
CALL #E 804 =END 


120 
125 
130 
288 


REM xkk MIND xxx 
FORI=#40@ TO #4@D 
READD :POKEI,D:NEXTI 
DATA #A2, #08, #B5, #49 
DATA #390, #8A, #BD 
DATA #E8, #8A, #E0, #11 
DATA #DQ, #F5, #68 

END 


COUNTRY SCENE 


How quickly does the Oric draw? With this Quickie, from 


eleven year old Paul Meadows of Peterborough, it takes 
less than 20 seconds to draw a house, path, sun and 
stream, in full colour, on the HIRES screen. 

Lines 20 to 50 draw the heart of the sun. Lines 60 to 85 
add the rays. Lines 90-110 draw the roof of the house, 
line 120 the walls. Windows and doors are added by 
lines 130 to 150, line 160 draws the path. The stream is 
sketched by lines 170 to 175, and the rest of the program 
uses FILL to add the colours. 


1 R=15:T=46 -E=1608 

9 G=2 

7? PAPER@:INK@ 

10 HIRES :PRINTCHR$(17) 
2@ FORN=-@TOPIX2STEP. 1 
38 CURSET16@,5@, 1 


4@ DRAWCOSC(N)*28, SINCN)X22, 1 
3@ NEXT 
68 FORN=-@TOPIX2STEP.5 


7@ CURSET16@,5@, 1 


88 DRAWCOSCN)X3@,SINCNJ X32, 1 
85 NEXT 


CLASSIFIEDS 


For ORIC-1 48K only, Hopper, 
Dinky Kong, Galaxians, Oric 
Multigames-1, Johnny Reb. 
Excellent games. £4.00 each. 
Contact: Mathew Shaer, 

43 Glenham Drive, Gantshill, 
Ilford, Essex. 


ORIC-1/ATMOS Electronic 
Calendar is a useful utility 
which allows you to store all 
those important events from 
now to eternity on your 
computer. Quick access to 
clear, month to page display. 
Send £6.95 to: A. J. Newham, 
29 York House, York Close, 
Northam, Southampton. 

(Tel. 334648) 


ORIC Printer Paper £1.80, 
Pens £2.99 (set), Adrian 
Marshall, 9 Windsor Road, 
Renfrew. UK only. 


This is the place to sell your excess software and accessories. 
Oric Owner classifieds will reach thousands of other Oric 
owners. 

Classified ads cost 15p per word, to a maximum of 30 words. 
Send your clearly written ad, with payment, to Oric Owner, 
Unit 1, Techno Park, Newmarket Rd, Cambridge, CB5 8PB. 


98 X=30:Y=5@ 

18@ FORN=85T010@:CURSETX,N; 1 

118 DRAWY,@, 1 >X=X-1 :Y=Y+2:NEXT 

128 FORN=101T014@:CURSET3@,N, 1 :DRAWS@ 
»@, 1 =NEXT 

13@ FORN=118T0120:CURSET35,N,9:DRAWS, 
@,@:CURSET35,N+15,0:DRAWS, @, @:NEXT 

14@ FORN=110T0120:CURSET65,N,98:DRAWY, 
8,@:CURSET65,N+15,0:DRAWS, 8, @:NEXT 

15@ FORN=125T014@:CURSET49,N,9:DRAWS, ~ 
8,Q:NEXT 

16@ FORN=141.70199:CURSETT,N; 1 :DRAWR,@ 
91 :T=T-.1:R=R+.5 :NEXT 

17@ FORN=1167T0199:F=E+CSINCN)X5) :CURS 
ETF,N;1:ORAWG, @, 1:G=G+.5:F=F+.@1 

175 E=E-.2:NEXT 

9@@ CURSET@,@,3:FILL115,1,22:FILL85, 1 
»>18:CURSETS8, 84,3:FILL18,1,1 

518 CURSETS@,1,@:FILL81,1,3:CURSETS8, 1 
41,3:FILL59,1,@ 

920 CURSET126,1906,3:FILL94,1,4 


WINDMILL 


SOFTWARE oF 


Anthony Quinn 


: ORIC ATTRIBUTES 
: GRAFFIX: How to use it! 
SKETCH: RUBout: CURMOVE: CURSET: BOX: CIRCLE: TEXT 
Initialising Program. 
: COLOUR: INK: PAPER: FILL: LINE: WINDow 
: SAVE: LOAD: Space key: CTRL B 
Other Keys 
How to LOAD a Picture 
: FILL (Auto) 
: FILL (Manual) 
: Copy of Keyboard overlay! 


Full feature High Resolution Screen design aid! 
Multi Colour “Paint box” type utility! 

Full Load & Save facilities! 

Over 13 Graphic and Colour Commands! 
Oric-1 or Oric Atmos Computers! 

English or German on Screen text! 

Keyboard overlay for Oric-1 Computers! 

2 Demonstration Pictures 

Recorded in FAST & SLOW! 

available NOW!!!! 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


** See Review in this issue!! 
** siehe test in diese ausgabe!! 


Preis DM 32,- + N.N. Geb. an: 
Windmill Software, Postfach 
1563, 3170 Gifhorn, 

W. Germany. 


send cheque for £7.95 to: 
Stone Link Trading Ltd., 

1 Guiness Trust, 
Loughborough Park, 
London SW9 


xx Dealer enquiries welcome!! 
%** Handler anfragen erwiinscht!!! 
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In the middle of Feltham, just off the M3 motorway, 
there’s a small industrial estate. In the middle of that 
estate, there is a factory producing Oric computers and 
peripherals. In the middle of May, we paid a visit to that 
factory. 


Until April, the factory was part of the large Kenure 
group, makers of plastics, microcomputers and many 
other things. They were contracted to Oric Products 
International to make the Oric computer. Servicing of the 
computers was carried out by another company, 
Ovacam, based in Cambridge. 

In April, Oric decided to combine manufacture and 
servicing. They bought the factory from Kenure, closed 
down Ovacam and bought both operations together at 
Oric Assembly. The man in charge is Brian Bains, and 
he’s turned the place into a highly efficient operations 
centre. 

The factory now assembles Oric computers and 
Microdisc units. It services all Oric products, and ships 
products all over the world. 


The Microdisc assembly line. This is a more complex 
product to put together, but again, a modular approach 
simplifies things. 
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The major components of an Atmos come like this, and 
are assembled at the factory. Kenure Plastics make the 
casings, the Printer Circuit Board (PCB) is made in 
Wales. This modular approach simplifies assembly and 
Servicing. 


Brian Bain’s avowed aim is to ‘give a better service 
than any other competing company.’ To that end, the 
servicing time for Oric products is now down to 48 hours 
or less, and the Oric/Atmos upgrade is taking less than a 
week. On the assembly side, each computer is 
individually checked before it is packed, and the failure 
rate is very low indeed. 


be “tes oe a 


Brian Bains, the man in charge, sees customer service as 
the number one priority. 


The factory is an assembly plant. The various 
components of the Atmos and disc drive units come in 
from outside sources. Finished computers roll off the 
production line at the rate of 1200 a day, and the factory 
has the capacity to assemble twice that number of 
computers. The factory also expects to make some 18000 
disc drives in the next year. 

Some 50 people are employed at the factory. A sign of 
the direction of growth, and the emphasis on service, 1s 


Putting an Atmos together. The whole operation takes The service department is proud of its record. The 

just a few minutes. The PCB is screwed to the base, the oscilliscope 1s an important test tool. Faulty machines are 
keyboard connected, the top of the case installed and more often than not replaced, rather than repaired. 
rubber feet attached. 


assembly, more rigorous quality control and improved 
that the machine testing department has grown fromone __gervicing, Brian Bains and his team have much to be 
person a year ago to ten. A recent addition to the staffis proud of. 
a person whose task is solely to answer customer 
queries. 

The upgrade service Is proving popular, with over 100 
machines a week being received. Machines that come in 
for routine servicing or repair go backwith a new 12 
month warranty too, and any available modifications 
done. 


Teeeeeeee, 


Testing an assembled Oric. A program is fed into the 
RAM via the cassette interface. Sound and screen 


functions are checked, as is the keyboard. Every Finished Atmos computers roll off the production line. 
machine is tested before packing. oe factory currently assembles some 1200 machines a 
ay. 

One thing the service department has found is that 

about a third of all machines returned for servicing have Oric Manufacturing 

no fault at all. The problem may just be that the T'V isn't Unit 11, 

tuned, or something equally minor. Hampton Farm Industrial Estate, 
Whatever criticisms may have been directed at Oric Hampton Road, 

servicing and customer relations now seem to have been Hanworth, 

well and truly laid to rest. With greater control over the Middlesex TW13 6DH 
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PRACTICAL 


MACHINE CODE 


PART 3 


Moving a shape about the screen is the subject of the 
third of David Sinden’s Machine Code articles 


In previous articles we scrolled the screen sideways. 
The apparent movement was fast, but as it was 
necessary to slow it down considerably, it was very 
jerky. This was because the display was shifted a 
character position at a time. We can do better than that! 

Before tackling the problem have a quick look at the 
program 'SWIMFISH’. You will find some instructions, 
like DEFB, ORG etc, that are not part of the 6502 
mnemonic set. For this program I have used an 
assembler. You'll probably recognise the source code in 
column three. The object code (in hexadecimal) is in 
column two and column one holds the address of each 
line. I have underlined those words in column three that 
are assembler instructions and the descriptions are in 
the table. If you've had many dealings with the computer 
industry you'll realize that all assembler formats are not 
compatible so I can't guarantee that you'll be able to 
enter this source code with any assembler except the 
Superior Software Assembler from Darkstar. If you have 
a different assembler you may have to make some 
alterations to get the source code to conform. If you don't 
have an assembler, don't despair — the object code can 
be entered using any Hex loader. The BASIC program in 
part 1 (Oric Owner Feb/March) will do the trick. If you 
intend to do much experimenting with machine code 
you'll find that an assembler and monitor makes things 
much easier. 

Now, let's see what can be done in the Oric's TEXT 
mode by way of smooth movement. We know that 
moving a character one position at a time is jerky so let's 
look inside the characters. Each position on the screen is 
made up of 48 ‘dots’, or pixels, in a 6X8 grid. Each dot 
can be specified as being in foreground colour (on) or 
background colour (off). The information as to whether a 
particular dot is on or off is held in an area of RAM near 
the top of the memory map. These bit patterns are 
copied from ROM whenever the machine is turned on or 
reset. As the information is copied into RAM it is 
available to the programmer and the bit pattern of any 
character can be changed. The part of the Oric 
concerned with keeping the display up to date accesses 
the character definition data each time the screen is 
updated (every 50th of a second) irrespective of what the 
program is doing. It follows that a change in the 
character RAM alters the display, provided that the 
character whose bit pattern is being altered is on the 
screen. You'll have noticed the effect if you've ever 
redefined a character while it was displayed. SWIMFISH 
exploits this feature. 
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Animation involves displaying a series of ‘frames’. How 
smooth the apparent movement is depends on how small 
a difference there is between successive frames. This 
has to be born in mind when it comes to defining 
graphics characters. Each frame has to be drawn over a 
suitably sized grid. I have chosen a grid three characters 
long by one deep. To keep the data table fairly short the 
program only redefines one of these characters. 
Hopefully, you will be able to expand on these ideas 
and produce moving objects to amaze your friends and 
put Space Invaders to shame. 

The design and screen display of user defined 
graphics is adequately covered in the Oric manual. If 
you're not sure what is happening have a look at the 
manual and Figure 1 which shows how the first frame is 
constructed and how the numbers that describe it are 
arrived at. In particular, note how easily binary converts 
to hexadecimal if it is first broken into groups of four bits 
(nibbles), each nibble converted and the hex digits then 
stuck together. If even this is too arduous, the Superior 
Software assembler allows entry in binary but I think that 
the saving in the calculations is more than made up for in 
the extra keystrokes required to enter the numbers. 


SWIMFISH 


10 FISH$=CHR$(35)+ CHRS(34) 
+ CHR$(33) 
20 CLS 
30 REPEAT 
REPEAT 
PRINT SPC(RND(1)6+ 1); 


Hil aone HET 
Bae Lit | Hy 
+--+ 
A || 
iz, Britt 


UNTIL PEEK(269)>28 
70 PRINT 
90 UNTIL PEAK(268)>26 
100 FOR COUNT=1 TO 100 
110 CALL 1400 
120 NEXT 


Figure 1 — Redefined first frame 


Having drawn and digitised all the frames, they have 
to be transferred to the character RAM in sequence. 
This is the function of SWIMFISH. Don't worry about 
getting the characters up on screen — that's a job for 
BASIC. 

Before looking at the program in detail have a look at 
Figure 2— my idea of how the task can be broken down. 
It is important to stress that this is only my idea — there 
are probably as many ways of approaching the problem 
as there are programmers. As you can see | have chosen 
to tackle the job in three stages. The ‘Main Prog’ calls a 
routine called ‘Transfer’ and both of these use ‘Delay’. 
This modular approach makes the programs as flexible 
as possible so although I have chosen an object three 
characters long with one character redefined in each 


frame, you should be able to fit in objects of your own. 
The flowchart translates into SWIMFISH, which looks 
fearsome but is actually less than 100 (decimal) bytes 


long, excluding the data. 


***** MAIN PROGRAM ***** 


1400 AO 17 LDY@#17\, 
1402 A2 01 LDX@#1\ 
1404 AQ 15 LDA@#15\, 
406 85 01 STAI\, 

408 A9 00 LDA@#0\, 
140A 85 00 STAO\ 

40C 20 2B 14 JSR TRANSFER 
140F 20 4A 14 JSR DELAY 


1435 20 4A 14 JSR DELAY 


Bytecount (IY)=17 
Framecount (IX)=1 


Set Framepoint to 
top of table. 

TAIL FORWARD 
Bytecount=7 
Framecount=6 


412 AO 07 LDY@#7\ Update lowbyte of 
1414 A2 06 LDX@#6\ Framepoint 
1416 AY 18 LDA@#18\, Offset=8 
418 85 00 STAO\, 
41A A9 08 LDA@#8. 
141C85 03 STA 3\ 
141E 20 2B 14 JSR TRANSFER TAIL BACK 
Framecount=6 
1421 A2 06 LDX@#6\. Offset=—8 
1423 AQ F8 LDA@#F8\, Note that Framepoint 
425 85 03 STA3\, and Bytecount 
1427 20 2B 14 JSR TRANSFER | are correct. 
142A 60 RTS\ Return to BASIC 
ak Kk @ TRANSFER kK KKK 
142B 98 TYA\ Store 
142C 48 PHA\, Bytecount 
e@LOOP2 
142DB1 00 LDA(0),Y\ Transfer 
142F 99 08 B5 STA #B508,Y\. Byte 
1432 88 DEY\, Decrement Bytecount 
1433 10 F8 BPL LOOP2 \_ If frame not complete 


do next byte. 


If all frames done END 
Adust low byte 

of frame point 

by Framestep 


Recall bytecount 
for next frame 


To bring stack back to 
state at beginning of 
TRANSFER routine. 


End of TRANSFER 


Save registers as 
they will be needed 
after this routine 


1488 CA DEX 

1489 FOO0C  BEQEND\. 

143B A5 00 LDA 0 

143D 18 CLC 

143E 65 03 ADC 3 

1440 85 00 STA 0 

1442 68 PLA 

1443 A8 TAY 

1444 4C 2B 14 JMP TRANSFER 
eEND 

1447 68 PLA\, 

1448 A8 TAY 

1449 60 RTS 

kkk KK DELAY wKakKaRK 

e DELAY 

144A 98 TYAN 

144B 48 PHA\, 

144C8A TXA\ 

44D 48 PHA\, is over, 

44F AO 1F LDY@#1F 
eDEL] 

1450 A2 FF LDX@#FF 
eDEL2 

452 CA DEX 

1453 DOFD BNE DEL2 

1455 88 DEY 

1456 DOFA BNE DEL2 


1458 68 PLA\ 

1459 AA TAX\, Get IX and IY 
145A 68 PLA\, off the stack 
145B A8 TAY, 

145C 60 RTS End of DELAY 


ke DATA KKK 
1500 00 00 10 


30 30 10 
00 00  DEFBO,0,#10,#30,#30,#10,0,0 
1808 00 30 0C 
03 00 01 
1E 20  DEFBO,#30,#C,3,0,1,#1E,#20 
1510 00 03 04 
0A 10 10 
08 07  DEFBO,3,4,#A.#10,#108,7 
\ Tail l 
1818 00 08 18 
28 38 08 
00 00  DEFBO.8,#18,#28,#38,8,0,0 
NCLB 
1520 00 0C:14 
24 24 14 
0C 00  DEFBO,#C,#14,#24,#24,#14,#C0 
152800 0206 S Jall3 
32 3A0A 
06 00 DEFBO,2.6,#32,#3A,#A.6,0 
\ Tail 4 
1530 04 0C.14 
24 24 14 
0C 04  DEFB4,#C,#14,424,#24,#14,4C4 
\ Tail 8 
1538 08 08 18 
28 28 18 
08 08  DEFB88,#18,#28,#28,#18.8,8 
\ Tail 6 
1540 10 10 10 
30 30 10 
10 10  DEFB#10,#10,#10,#30#30,#10,#10,#10 


@ asin LDA@ #¥ 17 indicates the immediate 
mode of addressing. 
@ indicates that a label follows. 
DEFB DEFine Byte. Used to set up the data area. 


There is nothing too complex in the part of the 
program called ‘Main Prog’. All it does is set up some 
parameters in the X and Y registers and locations in zero 
page that are used by the ‘Transfer’ routine. Don't worry 
at this stage about what these parameters are used for. 
When we look at the ‘Transfer’ routine all will become 
clear. Note that the return to BASIC comes at the end of 
this routine and not at the end of the whole lot, 

The real meat of the program is in ‘Transfer’. First I 
should explain that the routine is preceded by an 
assembler label, ie. the word TRANSFER with a dot in 
front of it. It can be used in any JMP, JSR or branch 
instructions and, as the labels are re-evaluated each time 
the program is assembled, any movement in memory of 
the labelled part of the routine is taken into account so it 
isn't necessary to change the destination or offsets in the 
aforementioned instructions. Have a look at the instruc- 
tion JSR TRANSFER in ‘Main Prog’, It assembles as 20 2B 
14. Remember that the bytes of the destination address 
are reversed. 

The first instruction of the subroutine is TYA and is in 
fact at 142B. TYA is an instruction we haven't used 
before. The mnemonic stands for Transfer Y to A. It isa 
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one byte instruction needing no operand. The Y register 
is copied to the Accumulator leaving the contents of Y 
unchanged. Followed as it is here with a PusH 
Accumulator the effect is to store a Y index on the stack. 
The accumulator is corrupted but this doesn't matter in 
this part of the program. Index Y holds the counter for 
the number of bytes to be copied from the data area to 
the character defining RAM and it has to be stored 
because as each byte is transferred, Y is decremented. 
When there are a number of frames in a sequence the 
same value of Y is required for each frame. So the value 
of Y is pushed at the beginning of the routine and we get 
it back from the stack at the end. 

The next instruction, LDA (0),Y, isn't new — it loads the 
accumulator from the address pointed to by a combina- 
tion of the data pointer at locations 0 and | and index Y. 
When the byte pointed to is in the accumulator it has to 
be transferred to the character area by a STA (STore A) 
instruction. The addressing mode used here is called 
Absolute Indexed because an absolute address is given 
in the instruction and the value of the Y index is added to 
this to generate the destination. This mode isn't quite as 
flexible as indirect addressing but it doesn't use any of 
zero page and is marginally faster. I have chosen B508 as 
the top address of character RAM to be changed. This 
address represents the top of the character and it is the 
eight bytes making up this character that are altered in 
each frame to give the illusion of movement. 

Y is decremented in the next instruction to move the 
data pointer ((0), Y) and the character pointer (B508, Y). 
The decrement Y instruction can affect various flags in 
the processor status word and the instruction at 1433 
tests one of these. The BPL stands for Branch if Plus and 
should be followed by a one byte offset. Again I have 
used a label, LOOP2, and let the assembler calculate the 
offset. 

The representation of positive and negative numbers 
in eight bit binary can by a little difficult to grasp but 
don't panic. I'll let you go to the library to look up the 
whys and wherefores of two's complement and Boolean 
algebra. I'll deal with the practical implications. Until 
now, we have considered the numbers the computer has 
been handling as being from binary 00000000 

‘ (hexadecimal 0, decimal 0) to binary 11111111 
(hexadecimal FF, decimal 255). 

This way of evaluating the number has been perfectly 
valid but I'd now like to introduce a different point of 
view. The numbers 00000000 to 01111111 have the values 
0 to 147 (dec), As soon as bit seven goes to one, 
however, we get negative numbers. Alright, I hear you 
say, so 10000001 is —], right? ...Wrong! —1 is in fact 
represented by 11111111. When the 6502 does any 
arithmetic it is necessary to work with eight bits at a 
time. The carry flag extends this to nine but if we chose 
to ignore the carry we can do the sum: 


lll11111 =] 


+1 +1 
00000000 SiO 
(binary) (decimal) 


Making 11111111 equivalent to —1 makes sense. 
Taking the idea further and counting back from zero we 
get 00000000, 11111111, 11111110, 11111101 etc, which is 
0,-1,-2,-3 etc. The most negative number that can be 
expressed like this is 10000000 or — 127. Testing bit 
seven of a register or other byte of memory would 
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require several instructions if the designers of the 6502 
hadn't included a flag in the processor status word that 
mirrors bit seven (often referred to as the sign bit) called 
the negative flag. If it is set after an operation the result 
is a negative number. Even though we are aware of the 
sign bit and the negative flag we can ignore them and 
evaluate the binary numbers as before for the purposes 
of addresses etc. 


START 
“MAIN PROG" 


SET UP PARAMETERS 
TO DRAW WHOLE 
OBJECT 


DO 
TRANSFER 


SET UP PARAMETERS 
FOR ANIMATION 
GOING DOWN THE 
TABLE (TAIL FORWARD) 


DO 
TRANSFER 


NOW GO BACK 
UP THE TABLE 
(TAIL BACK) 


DO 
TRANSFER 


_{ RETURN TO BASIC 


Figure 2~ Main program structure 


Let's see how all this fits in the program. When control 
is passed to the ‘Transfer’ routine the zero page pointer 
indicates the start of the relevant block of data and the Y 
index holds the number of bytes to be copied. In most 
computing applications it is quite legitimate to count from 
zero so although in the Draw Fish section there are 18 
(hex) bytes to be transferred, Y holds 17. Eact time the 
BPL LOOP2- LOOP? loop is executed Yis  - 
decremented. So 17 times around Y is 0. When the BPL 
instruction is reached the loop is executed again 
because as far as the 6502 is concerned 0 is positive, as 
bit 7 is 0. On the next pass Y is —1, which as we have 
seen is 11111111. The negative flag is set so the program 
exits from the loop to go on to the next frame (if there is 
one). Normally in copying a list it is natural to start at the 
top and work down. In this routine we have gone the 
other way. The Y index acts as both address offset and 
counter, saving a couple of bytes a compare instruction 
would have been needed if the count had gone down 
the list. 


Machine Code is mega-fast so the frame changes 
seem instantaneous and without a delay between frames 
the whole sequence runs through almost before the 
screen has been updated. The illusion of movement is 
lost. The routine called ‘Delay’, which will be dealt with 
later, is called between frames. Index X is the frame 
counter and this is decremented by the DEX instruction. 


SET UP 
HIGH ORDER 
COUNT 


GET BYTE 
FROM DATA 
TABLE 


PUT IT IN 
CHARACTER DEF 
RAM 


MOVE CHARACTER 
AND DATA 
POINTERS 


MORE BYTES 
IN THIS FRAME? 


DECREMENT 
FRAME COUNT 


MORE FRAMES? 


MOVE DATA 
POINTER BY 
AMOUNT IN 
OFFSET 


DECREMENT 
LOW ORDER 
COUNT 


BRANCH 
IF LOW ORDER 
NOT ZERO 


DECREMENT 
HIGH ORDER 
COUNT 


BRANCH 
IF HIGH ORDER 
NOT ZERO 


RETURN 


Figure 3- Transfer and Delay flowcharts 


If the result of this action results in X becoming zero then 
the BEQ END takes the program to the stack adjustment 
and returns to the Main Prog. 

If X is not zero after being decremented then there 
are more frames to be done and the data pointer has to 
be updated. The animation sequence consists of the 
same set of frames displayed first by reading the data 
downwards in memory and upwards. On the first pass, 
the data pointer must be increased by eight and on the 
second pass it must be decremented. It would have 
been easy to write two different routines, one adding 
eight to the pointer the other subtracting eight from it. By 
exploiting the properties of the arithmetic on the 6502 the 
same routine can be used to handle movements through 
memory in both direction. Look back to the ‘Main Prog’ 
Tail Forward section. You'll see that there is a parameter 
I have called Offset, stored in zero page at 0003. It has 
the value of eight to move the data pointer forwards. The 


Offset is simply added to the low order byte of the 
pointer by the three lines starting at 143B. The only 
instruction that might need explaining is the ADC 3. 
Previously we have ADded with Carry only in the 
immediate mode, giving the value to be added to the 
accumulator as the operand part of the instruction. Here 
the operand indicates a zero page address, the contents 
of which are to be added to the accumulator. The yesult 
of the addition goes into the accumulator. 

On the reverse pass through the frames (Tail Back) the 
offset is initialised to F8. The carry bit isn't used so the 
calculation looks like this: 

40 (Low order byte of data pointer) 
+F8 (Offset) 


38 (New low byte of data pointer, carry is ignored) 


I'm sure you won't be surprised to find that F8 is the 
way we represent —8 in two’s complement. Adding —8 
is exactly the same as subtracting eight so the same 
routine has been used to count both upwards and 
downwards through memory. 

After this bit of arithmetic, index Y is recalled from the 
stack via the Accumulator. Note that the stack is carefully 
adjusted on exit from the routine to avoid corruption and 
to leave the return address at the top of the stack. 

The delay routine is a simple double precision counter 
using X and Y indexes. As these two registers are also 
used in transfer they should not be corrupted by the 
‘Delay’ routine so they are stored on the stack in a similar 
way to that in which Y is stored in ‘Transfer’. The 
difference is that both indexes are put on the stack and 
when it comes to get them back it has to be born in mind 
that they come off in the reverse order. The technical 
term to describe this behaviour of the stack is Last In 
First Out, LIFO for short. So the 


complement of TYA PLA 
PHA is TAX 
TXA PLA 
PHA TAY 


Other than this the ‘Delay’ routine is straightforward. 
No data is moved about, no change is made to any bytes 
of memory or registers but all this doing nothing takes up 
a lot of time. The processor can't be told to stop dead 
and this is why routines like this are needed. There is no 
reason why this routine shouldn't be incorporated into 
programs you write but to avoid corruption of the 
accumulator an extra PHA instruction is required right at 
the start and a PLA right at the end (before the RTS). 

Here ends the program. What follows is the data from 
1500 onwards. If you are entering the program using 
some kind of hex loader or monitor note that the 
program is discontinuous, i.e. the program ends at 145C 
and the data starts at 1500. The content of the memory 
between these two addresses is not relevant to this 
program. 

The machine code can be driven from a BASIC 
program such as Swimfish. If you want to use it with 
a BASIC program of any great length it might be 
necessary to relocate the program but it can reside 
anywhere in the available RAM by altering the JMP 
instruction in 1444. 

The series started as an answer to an enquiry I saw in 
the magazine. I hope I have introduced some Machine 
Code to programmers who wouldn't normally have used 
it. Although I have by no means covered the full gamut of 
6502 instructions I may have inspired you to experiment 
a little further. If you have any observations you would 
like to offer I would be delighted to hear from you via 
Oric Owner. 
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CASSETTE 
CONTROL 


Nothing is ever written about 
cassette motor remote control 
ines, except for a few 
sentences in the manual. The 
ead sent with my 16K Oric 
did not include remote control 
ines. It 1s not obvious that all 
recorders are controlled in 
the same way, in which case, 
am a little afraid of 
damaging my Oric. 

G. D. Towner, Harpenden 


Cassette recorders with a 
remote control facility will 
have either a seven pin DIN 
socket, or a set of three jack 
plug sockets. At the Oric end 
of the connecting cable, you'll 
need a seven pin DIN 
connector. Oric don't supply a 
remote contro! lead as there 
are these two types of 
interface, and not all owners 
may have a remote control 
cassette player. The right 
lead should be easily 
obtainable from any electrical 
retailer 


ODD ORIC 


Something about my Oric-1 1s 
different to those in the 
manual and in other books on 
the Oric-1. The Oric-1 logo on 
my computer is the colours 
red, blue and green. | haven't 
seen other Oric-|s like this, so 
wonder why mine 1s so 
different. 

T. J. Betteridge, Newcastle 


Just before Oric stopped 
making the Onc-!, they made 
a batch with the coloured 
logo on them. Internally, they 
are identical to the previous 
Oric-1 machines. 


ZORGON’S 
TIP 


I have found a method of 
obtaining endless lives on 
Zorgon's Revenge, with my 
48K Oric-1. Here's what to do. 


a) You must be on the space 
mission 
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b) You must have only one 
life remaining 

c) Destroy the required 
amount of aliens 

d) Shoot the freighter 

e) As the lines are rejoining 
to form the stone, get 
yourself blown up 

f) You should now have men 
and instead of the number 
of lives you will have a 
cyan square 


This will give various 
keyboard symbols, including 
going backwards through the 
alphabet. 

Jeremy May, Paignton 


You must have an early 
sample of Zorgon'’s revenge, 
designed so that reviewers 
could review it more easily. 
Later versions won't allow this 
procedure. 


REST 
ASSURED 


Please assure me that Oric 
Owner will contain copy and 
advertising for the Atmos. 
There is no mention of the 
Atmos in the Dec/Jan issue at 
all, and I don't know where to 
start looking for Atmos soft- 
ware. a 

Jenny Spiers, Cranleigh 


We have every intention of 
covering the Atmos as fully as 
we cover the Oric-1. You'll 
find a list of Atmos software in 
this issue of Oric Owner, and 
we're sure you'll agree there 
is plenty to choose from. Still, 
that doesn't mean we are 
going to neglect the Onic-1. 
Let's keep the programs and 
tips for both machines flowing 
in. 


CASSETTE 
CAPERS 


A few months ago I received 
my Oric and was very 
pleased with it. Then I tried to 
load my program into it. The 
problem is that it won't load. 
Well, it loads about one in 
thirteen times, and then, when 
1 think I've got it, 1t does a 
syntax error on me. | have 
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taken back tape recorders 
because they won't work, and 
have tned many different 
ways of loading without much 
luck. 

I'm working towards O 
levels (hoping the Oric will 
help me with some 
programs), and I have wasted 
too much time with it. Can you 
give me some advice, and 
recommend a decent cassette 
recorder? 

Andrew Lidsey, Worcester 


Two cassette recorders we 
know work very well with 
Oric computers are the 
National Panasonic SlimLine, 
and the Sanyo DBIO!. Both 
are under £40 and should be 
available from Dixons or other 
good electrical shops. 


Does Oric Products 
International have any 
intention of producing an 
Atmos for the Fench market 
with an AZERTY keyboard. 
This would be of great use to 
all of us who type more or 
less correctly on standard 
French keyboards, but 
appreciate the quality and 
price of Oric for such tasks as 
word processing. 

Robert Whitener, Dieulefit, 

France 


Oric are considering such a 
keyboard, in light of the 
success of the Oric in France. 


MODEM 
NEEDED 


Could you tell me if there is a 
modem for the 16K Oric-1? 
Will I need an interface for it, 
and where can I get it? 
Stephen Smart, London E5 


Look at the News pages for 

your answer. Oric have just 

announced the V23 Modem 

and interface unit. Modular 

Concept Peripherals also do 
an RS232-C interface for the 
Telemod modem, priced at 

£38.50. It is reviewed in this 

issue. 


a 


TIPS 


PROGRAM 
LOADED BELL 


Some programs take many 
minutes to load, particularly if 
they are recorded at the slow 
300 Baud speed. Here's a 
short routine from Bertrand 
Edel of France that sounds a 
bell when a program 1s 
loaded. It means you can go 
any make a cuppa, or 
whatever, while the program 
is loading. 

100000 REM *** WARNING 
10100 ST=0 

10200 REPEAT 

0300 PRINT CHR$(7) 

10400 IF KEY$ = “" THEN ST 
=] 

10500 WAIT 100 

10600 UNTIL ST = | 

10700 RETURN 


You could alter 10400 so that 
pressing any key, rather than 
the space bar, stops the bell. 
You could also replace the 
bell sound (CHR§$(7)) with any 
other noise you preferred. 

To use the routine, add it to 
any program before it is 
CSAVEd, using a GOSUB as 
the first command. CSAVE 
the program with AUTO, so 
that when it is CLOADed, the 
warning routine will be called 
immediately. 


ORIC-1 


To strip the illegal code at the 
beginning of strings being 
plotted, use this line: 


PLOT X,Y, MID$(STR&C...),2) 


To home the cursor to the 
top left of the screen, without 
clearing the screen, PRINT 
CHR$(30). 

To get inverse characters, 
add 128 to their ASCII value. 

There's a real time clock at 
memory addresses #276 and 
#277, where #276 is the low 
order byte. DEEK(#276) will 
read the clock and DOKE 
#276,00 will zero the clock. 
These four Oric-1 tips are 
from K. Golding of Morden. 


ORI 


PRESENT THEIR 
V23 MODEM 


v7O° aannces 


LINE DCD ON 
ee 


SCET 


* SAYING OF PAGES TO TAFE 


* PRINTING OF PAGES ONTO ORIC 
DOT MATRIX PRINTER 


* feronaeee OF PAGES AT YOUR 
* ORIC TO ORIC COMMUNICATIONS 
AVAILABLE SHORTLY 
PRES TEL IS THE WORLD'S LARGEST 
WITH OVER 32@,@6@ PAGES AVAILABLE 
KEY # TO CONTINUE 


4450076 Op 


FEATURES OF THE ORIC MODEM ARE: 


ORDER FORM 
Please send me the new Oric modem. 


I understand that if | am not entirely satisfied with my 
purchase, I may return it within seven days of receipt for 
an immediate and full refund. 


l enclose a cheque/postal order made payable to Tansoft 
Ltd. for the sum of £99.99 Please debit my Access/Diners 
Club account (number ) 
for £99.99 (Delete as appropriate). 

| My name and address is (Block capitals please) 


; Complete and send to Tansoft Ltd. Units 1 & 2, Techno 
Park, Newmarket Road, Cambridge CB5 8PB. 


PRESTEL Tx Rx 


at al 


RES TE 16a 
eneral Interest 


f Op 
1 NEWS & WEATHER from home & abroad 
2 poate AMUSEMENTS Games, puzzles, 
28 horoscopes, quizzes, ves shoe far 
3 ON TAG pee ee NG from home, shop for 
ods ha vels-el anes heatre 
4 TRAVEL 7A "HOLIDAYS RANSEORT Rail. air, 
d travel, tourism, 
bal sForts &. “HOBBIES ‘ieee news, events, 
takin 
6& WHATS of Fee ee guides & booking, 
rAate exhibitions, TU, restaurants 
ra CE on health, welfare, education, 
8 
9 
8 


Brees, i DRYRK'R & consumer 
FOOD &. RINK ee diets, nutrition, 
info _on pirits 


PReSTéL 8 ADVERTISER The index to 


al on Prestel . 
Poca SH APORMET TBH EE by town & by region 


topics 


TAYTEL 
LOTHIAN 


468212128 


Edinburgh 
airport 


Op 


H AYS (Domestic) 

ee CALEDONIAN ¢ Domestic > 

TSH MIDLAND Al ee 
AIRPORT, & CARGO oHBHDLING AGENTS 

Y BAA EDIMBUREH AIRPORT INFORMATION 
SKYGUIDE arrival“departure times & 

Tayside Travel Index 5 Air Travel 9 
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The very best in arcade action- 


is brought to you by Tansoft — the specialists of the Oric-1 
and Atmos Computers. 
y The games that people are fighting for are:— 
Defence Force: 
Pilot your space-craft 
through alien territory and fight 
off the enemy approaching from 
both sides. 48K. £7.95 


Ultima Zone: 
Shoot the Walkons, avoid the 
bouncing Brunes and battle 
your way through the 
satellite zone. 48K. £8.50. 
A revolting game. 


j - yy 
- sm. 
Splat the rats in the sewer before WAG J 


. they consume the cheese, and destroy the monsters @b 
% before they consume you! 48K. £7.95. J 


Rat Splat: 


or let's get down to business! 


aassine ts deetmansinnannennn RAZ INES ( 


) 


coming to grips with:— 

Author: A powerful word-processor program which 
includes word-wrap and word-count. Ideal for letters and 
reports. 48K. £14.50. 

Oric Calc: A full spread-sheet program allows you to sum 
columns or rows and apply complex formulae. 48K. £14.50. 
Oric Cad: A computer aided design program for displaying, 
rotating, enlarging and shading objects on the screen. 
48K. £9.99. 

For the full range of Tansoft software — which currently 
numbers over 20 titles — pick up a catalogue in your local 
Computer Store or contact Tansoft at Unit 1, 

The Techno Park, 645 Newmarket Road, Cambridge. 

Tel. Teversham (02205) 2261. 


